[Emacs-diffs] Changes to emacs/lisp/completion.el

[Pavel Janík]

Index: emacs/lisp/completion.el
diff -c emacs/lisp/completion.el:1.43 emacs/lisp/completion.el:1.44
*** emacs/lisp/completion.el:1.43       Sun Jul 15 12:15:34 2001
--- emacs/lisp/completion.el    Thu Dec 20 13:34:41 2001
***************
*** 842,848 ****
    (reset-cdabbrev-window t))
  
  (defun set-cdabbrev-buffer ()
!   ;; cdabbrev-current-window must not be NIL
    (set-buffer (if (eq cdabbrev-current-window t)
                  (other-buffer)
                  (window-buffer cdabbrev-current-window))))
--- 842,848 ----
    (reset-cdabbrev-window t))
  
  (defun set-cdabbrev-buffer ()
!   ;; cdabbrev-current-window must not be nil
    (set-buffer (if (eq cdabbrev-current-window t)
                  (other-buffer)
                  (window-buffer cdabbrev-current-window))))
***************
*** 1001,1007 ****
  
  ;; A completion entry is a LIST of string, prefix-symbol num-uses, and
  ;; last-use-time (the time the completion was last used)
! ;; last-use-time is T if the string should be kept permanently
  ;; num-uses is incremented every time the completion is used.
  
  ;; We chose lists because (car foo) is faster than (aref foo 0) and the 
--- 1001,1007 ----
  
  ;; A completion entry is a LIST of string, prefix-symbol num-uses, and
  ;; last-use-time (the time the completion was last used)
! ;; last-use-time is t if the string should be kept permanently
  ;; num-uses is incremented every time the completion is used.
  
  ;; We chose lists because (car foo) is faster than (aref foo 0) and the 
***************
*** 1019,1025 ****
  
  (defmacro completion-last-use-time (completion-entry)
    ;;  "The time it was last used.  In hours since origin.  Used to decide
!   ;; whether to save it.  T if one should always save it."
    (list 'nth 2 completion-entry))
  
  (defmacro completion-source (completion-entry)
--- 1019,1025 ----
  
  (defmacro completion-last-use-time (completion-entry)
    ;;  "The time it was last used.  In hours since origin.  Used to decide
!   ;; whether to save it.  t if one should always save it."
    (list 'nth 2 completion-entry))
  
  (defmacro completion-source (completion-entry)
***************
*** 1132,1138 ****
    ;; "The interned prefix symbol corresponding to cmpl-db-downcase-string."
  (defvar cmpl-db-entry nil)
  (defvar cmpl-db-debug-p nil
!   "Set to T if you want to debug the database.")
  
  ;; READS
  (defun find-exact-completion (string)
--- 1132,1138 ----
    ;; "The interned prefix symbol corresponding to cmpl-db-downcase-string."
  (defvar cmpl-db-entry nil)
  (defvar cmpl-db-debug-p nil
!   "Set to t if you want to debug the database.")
  
  ;; READS
  (defun find-exact-completion (string)