/[emacs]/emacs/lisp/completion.el
ViewVC logotype

Diff of /emacs/lisp/completion.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.43 by pj, Sun Jul 15 16:15:34 2001 UTC revision 1.44 by pj, Thu Dec 20 18:34:41 2001 UTC
# Line 842  during the search." Line 842  during the search."
842    (reset-cdabbrev-window t))    (reset-cdabbrev-window t))
843    
844  (defun set-cdabbrev-buffer ()  (defun set-cdabbrev-buffer ()
845    ;; cdabbrev-current-window must not be NIL    ;; cdabbrev-current-window must not be nil
846    (set-buffer (if (eq cdabbrev-current-window t)    (set-buffer (if (eq cdabbrev-current-window t)
847                    (other-buffer)                    (other-buffer)
848                    (window-buffer cdabbrev-current-window))))                    (window-buffer cdabbrev-current-window))))
# Line 1001  Each symbol is bound to a single complet Line 1001  Each symbol is bound to a single complet
1001    
1002  ;; A completion entry is a LIST of string, prefix-symbol num-uses, and  ;; A completion entry is a LIST of string, prefix-symbol num-uses, and
1003  ;; last-use-time (the time the completion was last used)  ;; last-use-time (the time the completion was last used)
1004  ;; last-use-time is T if the string should be kept permanently  ;; last-use-time is t if the string should be kept permanently
1005  ;; num-uses is incremented every time the completion is used.  ;; num-uses is incremented every time the completion is used.
1006    
1007  ;; We chose lists because (car foo) is faster than (aref foo 0) and the  ;; We chose lists because (car foo) is faster than (aref foo 0) and the
# Line 1019  Each symbol is bound to a single complet Line 1019  Each symbol is bound to a single complet
1019    
1020  (defmacro completion-last-use-time (completion-entry)  (defmacro completion-last-use-time (completion-entry)
1021    ;;  "The time it was last used.  In hours since origin.  Used to decide    ;;  "The time it was last used.  In hours since origin.  Used to decide
1022    ;; whether to save it.  T if one should always save it."    ;; whether to save it.  t if one should always save it."
1023    (list 'nth 2 completion-entry))    (list 'nth 2 completion-entry))
1024    
1025  (defmacro completion-source (completion-entry)  (defmacro completion-source (completion-entry)
# Line 1132  Each symbol is bound to a single complet Line 1132  Each symbol is bound to a single complet
1132    ;; "The interned prefix symbol corresponding to cmpl-db-downcase-string."    ;; "The interned prefix symbol corresponding to cmpl-db-downcase-string."
1133  (defvar cmpl-db-entry nil)  (defvar cmpl-db-entry nil)
1134  (defvar cmpl-db-debug-p nil  (defvar cmpl-db-debug-p nil
1135    "Set to T if you want to debug the database.")    "Set to t if you want to debug the database.")
1136    
1137  ;; READS  ;; READS
1138  (defun find-exact-completion (string)  (defun find-exact-completion (string)

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26