Lines Matching +defs:tried +defs:list
172 ;; list-all-completions
173 ;; Returns a list of all completions.
196 ;; get-completion-list string
712 ;; (list 'cond
713 ;; (list* '*record-cmpl-statistics-p* body)
747 (defvar cdabbrev-completions-tried nil)
748 ;; "A list of all the cdabbrev completions since the last reset.")
773 (defun reset-cdabbrev (abbrev-string &optional initial-completions-tried)
775 INITIAL-COMPLETIONS-TRIED is a list of downcased strings to ignore
778 cdabbrev-completions-tried
779 (cons (downcase abbrev-string) initial-completions-tried))
824 downcase-expansion tried-list syntax saved-point-2)
857 ;; have we not tried this one before
860 (setq tried-list cdabbrev-completions-tried
862 (while (and tried-list
864 (car tried-list))))
865 ;; Already tried, don't choose this one
866 (setq tried-list (cdr tried-list)))
867 ;; at this point tried-list will be nil if this
868 ;; expansion has not yet been tried
869 (if tried-list
887 (setq cdabbrev-completions-tried
888 (cons downcase-expansion cdabbrev-completions-tried)
931 Each symbol is bound to a list of completion entries.")
952 (list 'car completion-entry))
957 (list 'car (list 'cdr completion-entry)))
962 (list 'nth 2 completion-entry))
965 (list 'nth 3 completion-entry))
969 (list 'setcar completion-entry string))
972 (list 'setcar (list 'cdr completion-entry) num-uses))
975 (list 'setcar (list 'cdr (list 'cdr completion-entry)) last-use-time))
980 (list string 0 nil current-completion-source))
984 ;; (list 'car (list 'cdr completion-entry)))
1003 (list 'setcar prefix-entry new-head))
1006 (list 'setcdr prefix-entry new-tail))
1010 (defun make-cmpl-prefix-entry (completion-entry-list)
1012 (cons completion-entry-list completion-entry-list))
1026 (defvar completions-list-return-value)
1028 (defun list-all-completions ()
1029 "Return a list of all the known completion entries."
1030 (let ((completions-list-return-value nil))
1031 (mapatoms 'list-all-completions-1 cmpl-prefix-obarray)
1032 completions-list-return-value))
1034 (defun list-all-completions-1 (prefix-symbol)
1036 (setq completions-list-return-value
1038 completions-list-return-value))))
1040 (defun list-all-completions-by-hash-bucket ()
1041 "Return list of lists of known completion entries, organized by hash bucket."
1042 (let ((completions-list-return-value nil))
1043 (mapatoms 'list-all-completions-by-hash-bucket-1 cmpl-prefix-obarray)
1044 completions-list-return-value))
1046 (defun list-all-completions-by-hash-bucket-1 (prefix-symbol)
1048 (setq completions-list-return-value
1050 completions-list-return-value))))
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"
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
1159 (entry (list (make-completion string)))
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,
1182 or it to the head of the list.
1213 (entry (list (make-completion completion-string)))
1244 ;; remove from prefix list
1317 (list read)))
1323 (list string)))
1326 "Add STRING to completion list, or move it to head of list.
1449 ;; "The initial list of starting possibilities."
1452 (defvar cmpl-tried-list nil)
1453 ;; "A downcased list of all the completions we have tried."
1473 cmpl-tried-list nil))
1485 ;; reverse the possibilities list
1494 ;; next completion is at index 0. reset next-possibility list
1534 cmpl-tried-list (cons (downcase (completion-string cmpl-next-possibility))
1535 cmpl-tried-list)
1541 (reset-cdabbrev cmpl-test-string cmpl-tried-list)
1791 ;; We tried using forward-lines and explicit searches but the regexp technique
2043 (dolist (completion (list-all-completions))
2244 ;; function to add new words to the list of words to complete from:
2247 ;; symbol before point to the completion list (using ADD-COMPLETION).
2492 (add-to-list 'debug-ignored-errors x))