Lines Matching +defs:tried +defs:list
34 ;; determined by the contents of `hippie-expand-try-functions-list'.
36 ;; order of, removing, or inserting new functions in this list.
38 ;; ARG functions forward in this list. Given some other argument
39 ;; (a negative argument or just Ctrl-U) it undoes the tried
43 ;; outputs in a message which try-function in the list that is used
44 ;; currently (ie. was used currently and will be tried first the next
49 ;; The variable `hippie-expand-ignore-buffers' is a list of regexps
71 ;; `try-complete-file-name-partially' : To insert in the list just
80 ;; list in shell-like buffers. At other times, only confusing.
84 ;; `try-expand-list' : Tries to expand the text back to the nearest
85 ;; open delimiter, to a whole list from the buffer. Convenient for
87 ;; `try-expand-list-all-buffers' : Like `try-expand-list' but searches
110 ;; `try-complete-lisp-symbol-partially' : To insert in the list just
115 ;; `hippie-expand-try-functions-list'. This variable is better set
122 ;; `hippie-expand-try-functions-list' a buffer local variable, and
131 ;; substitute the next possible completion for the last tried string.
146 ;; There is also a variable: `he-tried-table' which is meant to contain
147 ;; all tried expansions so far. The try-function can check this
148 ;; variable to see whether an expansion has already been tried
154 ;; spite of the use of `he-tried-table' to prevent that. This is
157 ;; text in `he-tried-table'. Anyway this seems to occur seldom enough
160 ;; suggestion because it thinks it has already tried it.
189 (defvar he-expand-list ())
191 (defvar he-tried-table ())
206 (defcustom hippie-expand-try-functions-list
210 try-expand-list
217 "The list of expansion functions tried in order by `hippie-expand'.
219 or insert functions in this list."
257 "*A list specifying which buffers not to search (if not current).
265 "*A list specifying the only buffers to search (in addition to current).
275 The expansion functions in `hippie-expand-try-functions-list' are
276 tried in order, until a possible expansion is found. Repeated
280 function in this list. With a negative argument or just \\[universal-argument],
290 (setq he-tried-table nil)))
295 (while (not (or (>= i (length hippie-expand-try-functions-list))
296 (apply (nth i hippie-expand-try-functions-list)
297 (list (= he-num i)))))
300 (if (>= he-num (length hippie-expand-try-functions-list))
310 (nth he-num hippie-expand-try-functions-list)))))
347 (setq he-tried-table (cons subst he-tried-table))
419 (defmacro make-hippie-expand-function (try-list &optional verbose)
426 (mapconcat 'prin1-to-string (eval try-list) ", "))
428 (let ((hippie-expand-try-functions-list ,try-list)
447 (if (not (he-string-member name-part he-tried-table))
448 (setq he-tried-table (cons name-part he-tried-table)))
451 (setq he-expand-list (sort (file-name-all-completions
455 (setq he-expand-list ())))))
457 (while (and he-expand-list
458 (he-string-member (car he-expand-list) he-tried-table))
459 (setq he-expand-list (cdr he-expand-list)))
460 (if (null he-expand-list)
466 (car he-expand-list))))
468 (setq he-tried-table (cons (car he-expand-list) (cdr he-tried-table)))
469 (setq he-expand-list (cdr he-expand-list))
490 (he-string-member expansion he-tried-table))
501 (setq he-tried-table (cons expansion (cdr he-tried-table)))
575 (if (not (he-string-member he-search-string he-tried-table))
576 (setq he-tried-table (cons he-search-string he-tried-table)))
577 (setq he-expand-list
585 (while (and he-expand-list
586 (he-string-member (car he-expand-list) he-tried-table))
587 (setq he-expand-list (cdr he-expand-list)))
588 (if (null he-expand-list)
593 (he-substitute-string (car he-expand-list))
594 (setq he-expand-list (cdr he-expand-list))
615 (he-string-member expansion he-tried-table))
692 (setq he-search-bufs (buffer-list))
748 (if (he-string-member result he-tried-table t)
769 (defun try-expand-list (old)
770 "Try to complete the current beginning of a list.
777 (he-init-string (he-list-beg) (point))
790 (setq expansion (he-list-search he-search-string t))
800 (setq expansion (he-list-search he-search-string nil))
811 (defun try-expand-list-all-buffers (old)
812 "Try to complete the current list, searching all other buffers.
821 (he-init-string (he-list-beg) (point))
822 (setq he-search-bufs (buffer-list))
843 (he-list-search he-search-string nil)))
862 (defun he-list-search (str reverse)
874 (forward-list 1)
882 (if (he-string-member result he-tried-table t)
887 (defun he-list-beg ()
890 (backward-up-list 1)
902 (setq he-expand-list
910 abbrev-table-name-list))))))
911 (while (and he-expand-list
912 (or (not (car he-expand-list))
913 (he-string-member (car he-expand-list) he-tried-table t)))
914 (setq he-expand-list (cdr he-expand-list)))
915 (if (null he-expand-list)
920 (he-substitute-string (car he-expand-list) t)
921 (setq he-expand-list (cdr he-expand-list))
977 (setq he-search-bufs (buffer-list))
1086 (he-string-member result he-tried-table t))
1110 (setq he-expand-list
1133 (killstr (car he-expand-list)))
1135 he-expand-list)
1145 (he-string-member result he-tried-table t))
1148 he-expand-list)
1150 (setq he-expand-list (cdr he-expand-list))
1151 (setq killstr (car he-expand-list))
1164 (if (not (he-string-member he-search-string he-tried-table))
1165 (setq he-tried-table (cons he-search-string he-tried-table)))
1166 (setq he-expand-list
1184 (killstr (car he-expand-list))
1187 he-expand-list)
1205 (he-string-member result he-tried-table))
1208 he-expand-list)
1210 (setq he-expand-list (cdr he-expand-list))
1211 (setq killstr (car he-expand-list))