Lines Matching +defs:def +defs:prefix
213 ;; Add package prefix smarts (for Common Lisp)
373 (defvar completion-prefix-min-length 3
676 (if (and (<= completion-prefix-min-length
918 ;; 1) Prefix {cmpl-prefix-obarray} for looking up possible completions
929 (defvar cmpl-prefix-obarray (make-vector cmpl-obarray-length 0)
941 ;; A completion entry is a LIST of string, prefix-symbol num-uses, and
983 ;;(defmacro cmpl-prefix-entry-symbol (completion-entry)
996 (defalias 'cmpl-prefix-entry-head 'car)
998 (defalias 'cmpl-prefix-entry-tail 'cdr)
1002 (defmacro set-cmpl-prefix-entry-head (prefix-entry new-head)
1003 (list 'setcar prefix-entry new-head))
1005 (defmacro set-cmpl-prefix-entry-tail (prefix-entry new-tail)
1006 (list 'setcdr prefix-entry new-tail))
1010 (defun make-cmpl-prefix-entry (completion-entry-list)
1011 "Make a new prefix entry containing only completion-entry."
1021 (setq cmpl-prefix-obarray (make-vector cmpl-obarray-length 0))
1031 (mapatoms 'list-all-completions-1 cmpl-prefix-obarray)
1034 (defun list-all-completions-1 (prefix-symbol)
1035 (if (boundp prefix-symbol)
1037 (append (cmpl-prefix-entry-head (symbol-value prefix-symbol))
1043 (mapatoms 'list-all-completions-by-hash-bucket-1 cmpl-prefix-obarray)
1046 (defun list-all-completions-by-hash-bucket-1 (prefix-symbol)
1047 (if (boundp prefix-symbol)
1049 (cons (cmpl-prefix-entry-head (symbol-value prefix-symbol))
1070 (defvar cmpl-db-prefix-symbol nil
1071 "The interned prefix symbol corresponding to `cmpl-db-downcase-string'.")
1085 (defun find-cmpl-prefix-entry (prefix-string)
1086 "Return the prefix entry for string.
1087 Sets `cmpl-db-prefix-symbol'.
1088 Prefix-string must be exactly `completion-prefix-min-length' long
1089 and downcased. Sets up `cmpl-db-prefix-symbol'."
1090 (and (boundp (setq cmpl-db-prefix-symbol
1091 (intern prefix-string cmpl-prefix-obarray)))
1092 (symbol-value cmpl-db-prefix-symbol)))
1097 (defun locate-completion-entry (completion-entry prefix-entry)
1102 (let ((prefix-list (cmpl-prefix-entry-head prefix-entry))
1103 next-prefix-list)
1105 ((not (eq (car prefix-list) completion-entry))
1107 (while (and prefix-list
1109 (car (setq next-prefix-list (cdr prefix-list))))))
1110 (setq prefix-list next-prefix-list))
1112 prefix-list)
1116 (error "Completion entry exists but not on prefix list - %s"
1135 (find-cmpl-prefix-entry
1137 0 completion-prefix-min-length)))))
1150 "If STRING is not in the database add it to appropriate prefix list.
1151 STRING is added to the end of the appropriate prefix list with
1153 longer than `completion-prefix-min-length'.
1160 ;; setup the prefix
1161 (prefix-entry (find-cmpl-prefix-entry
1163 completion-prefix-min-length))))
1166 (cond (prefix-entry
1169 (setcdr (cmpl-prefix-entry-tail prefix-entry) entry)
1170 (set-cmpl-prefix-entry-tail prefix-entry entry))
1172 (set cmpl-db-prefix-symbol (make-cmpl-prefix-entry entry))))
1180 "If COMPLETION-STRING is not in the database, add it to prefix list.
1181 We add COMPLETION-STRING to the head of the appropriate prefix list,
1183 COMPLETION-STRING must be longer than `completion-prefix-min-length'.
1192 (let* ((prefix-entry (find-cmpl-prefix-entry
1194 completion-prefix-min-length)))
1195 (splice-ptr (locate-completion-entry cmpl-db-entry prefix-entry))
1206 (set-cmpl-prefix-entry-tail prefix-entry splice-ptr))
1208 (setcdr cmpl-ptr (cmpl-prefix-entry-head prefix-entry))
1209 (set-cmpl-prefix-entry-head prefix-entry cmpl-ptr)))
1214 ;; setup the prefix
1215 (prefix-entry (find-cmpl-prefix-entry
1217 completion-prefix-min-length))))
1218 (cond (prefix-entry
1220 (setcdr entry (cmpl-prefix-entry-head prefix-entry))
1221 (set-cmpl-prefix-entry-head prefix-entry entry))
1223 ;; Start new prefix entry
1224 (set cmpl-db-prefix-symbol (make-cmpl-prefix-entry entry))))
1233 String must be longer than `completion-prefix-min-length'."
1238 (let* ((prefix-entry (find-cmpl-prefix-entry
1240 completion-prefix-min-length)))
1241 (splice-ptr (locate-completion-entry cmpl-db-entry prefix-entry)))
1244 ;; remove from prefix list
1249 (set-cmpl-prefix-entry-tail prefix-entry splice-ptr)))
1252 (or (set-cmpl-prefix-entry-head
1253 prefix-entry (cdr (cmpl-prefix-entry-head prefix-entry)))
1255 (set cmpl-db-prefix-symbol nil))))
1265 ;; (car (find-cmpl-prefix-entry "ban")) --> (("banana" ...))
1266 ;; (cdr (find-cmpl-prefix-entry "ban")) --> (("banana" ...))
1269 ;; (car (find-cmpl-prefix-entry "ban")) --> (("banish" ...) ("banana" ...))
1270 ;; (cdr (find-cmpl-prefix-entry "ban")) --> (("banana" ...))
1272 ;; (car (find-cmpl-prefix-entry "ban")) --> (("banana" ...) ("banish" ...))
1273 ;; (cdr (find-cmpl-prefix-entry "ban")) --> (("banish" ...))
1279 ;; (car (find-cmpl-prefix-entry "ban")) --> (("banana" ...) ("banish" ...))
1280 ;; (cdr (find-cmpl-prefix-entry "ban")) --> (("banish" ...))
1283 ;; (car (find-cmpl-prefix-entry "ban")) --> (("banner" ...) ("banish" ...))
1284 ;; (cdr (find-cmpl-prefix-entry "ban")) --> (("banish" ...))
1287 ;; (find-cmpl-prefix-entry "ban") --> nil
1292 ;; (car (find-cmpl-prefix-entry "ban")) --> (("banana" ...))
1293 ;; (cdr (find-cmpl-prefix-entry "ban")) --> (("banana" ...))
1295 ;; (car (find-cmpl-prefix-entry "ban")) -->(("banana" ...) ("banish" ...))
1296 ;; (cdr (find-cmpl-prefix-entry "ban")) -->(("banish" ...))
1409 ;; (car (find-cmpl-prefix-entry "ban")) --> (("banish" ...) ("banana" ...))
1415 ;; (car (find-cmpl-prefix-entry "ban")) --> (("banana" ...) ("banish" ...))
1418 ;; (car (find-cmpl-prefix-entry "ban"))
1423 ;; (car (find-cmpl-prefix-entry "ban")) --> (("banner" ...) ("banana" ...))
1458 STRING must be longer than `completion-prefix-min-length'."
1461 (cmpl-prefix-entry-head
1462 (find-cmpl-prefix-entry
1463 (downcase (substring string 0 completion-prefix-min-length))))
1623 (cond ((consp current-prefix-arg) ;; control-u
1633 completion-prefix-min-length)))
1635 (setq cmpl-current-index (if current-prefix-arg arg 0))
1788 ;; This merely looks for phrases beginning with (def.... or
1789 ;; (package:def ... and takes the next word.
1794 (defconst *lisp-def-regexp*
1795 "\n(\\(\\w*:\\)?def\\(\\w\\|\\s_\\)*\\s +(*"
1799 ;; (and (string-match *lisp-def-regexp* "\n(defun foo") (match-end 0)) -> 8
1800 ;; (and (string-match *lisp-def-regexp* "\n(si:def foo") (match-end 0)) -> 9
1801 ;; (and (string-match *lisp-def-regexp* "\n(def-bar foo")(match-end 0)) -> 10
1802 ;; (and (string-match *lisp-def-regexp* "\n(defun (foo") (match-end 0)) -> 9
1814 (re-search-forward *lisp-def-regexp*)
1838 (defconst completion-c-def-syntax-table
1860 (defconst *c-def-regexp*
1879 ;(defun test-c-def-regexp (regexp string)
1884 ;; (test-c-def-regexp *c-def-regexp* "\n#define foo") -> 10 (9)
1885 ;; (test-c-def-regexp *c-def-regexp* "\nfoo (x, y) {") -> 6 (6)
1886 ;; (test-c-def-regexp *c-def-regexp* "\nint foo (x, y)") -> 10 (5)
1887 ;; (test-c-def-regexp *c-def-regexp* "\n int foo (x, y)") -> nil
1888 ;; (test-c-def-regexp *c-cont-regexp* "oo, bar") -> 4
1889 ;; (test-c-def-regexp *c-cont-regexp* "oo, *bar") -> 5
1890 ;; (test-c-def-regexp *c-cont-regexp* "a [5][6], bar") -> 10
1891 ;; (test-c-def-regexp *c-cont-regexp* "oo(x,y)") -> nil
1892 ;; (test-c-def-regexp *c-cont-regexp* "a [6] ,\t bar") -> 9
1893 ;; (test-c-def-regexp *c-cont-regexp* "oo {trout =1} my_carp;") -> 14
1894 ;; (test-c-def-regexp *c-cont-regexp* "truct_p complex foon") -> nil
1906 (with-syntax-table completion-c-def-syntax-table
1912 (re-search-forward *c-def-regexp*)
2268 (defun completion-def-wrapper (function-name type)
2331 (completion-def-wrapper 'electric-c-semi :separator)
2458 (completion-def-wrapper 'newline :separator)
2459 (completion-def-wrapper 'newline-and-indent :separator)
2460 (completion-def-wrapper 'comint-send-input :separator)
2461 (completion-def-wrapper 'exit-minibuffer :minibuffer-separator)
2462 (completion-def-wrapper 'eval-print-last-sexp :separator)
2463 (completion-def-wrapper 'eval-last-sexp :separator)
2464 ;;(completion-def-wrapper 'minibuffer-complete-and-exit :minibuffer)
2470 (completion-def-wrapper 'next-line :under-or-before)
2471 (completion-def-wrapper 'previous-line :under-or-before)
2472 (completion-def-wrapper 'beginning-of-buffer :under-or-before)
2473 (completion-def-wrapper 'end-of-buffer :under-or-before)
2474 (completion-def-wrapper 'beginning-of-line :under-or-before)
2475 (completion-def-wrapper 'end-of-line :under-or-before)
2476 (completion-def-wrapper 'forward-char :under-or-before)
2477 (completion-def-wrapper 'forward-word :under-or-before)
2478 (completion-def-wrapper 'forward-sexp :under-or-before)
2479 (completion-def-wrapper 'backward-char :backward-under)
2480 (completion-def-wrapper 'backward-word :backward-under)
2481 (completion-def-wrapper 'backward-sexp :backward-under)
2483 (completion-def-wrapper 'delete-backward-char :backward)
2484 (completion-def-wrapper 'delete-backward-char-untabify :backward)