[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/completion.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/completion.el |
Date: |
Thu, 20 Dec 2001 13:34:41 -0500 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/completion.el,
Pavel Janík <=