.

[gnu-emacs] / lisp / completion.el

diff --git a/lisp/completion.el b/lisp/completion.el
index 152f72cab3db9b1cc5007de30637e6e67a62d001..4bc34cc4ba20574b4528a61344ba5d73debd3c69 100644 (file)
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -842,7 +842,7 @@ during the search."
   (reset-cdabbrev-window t))
 
 (defun set-cdabbrev-buffer ()
-  ;; cdabbrev-current-window must not be NIL
+  ;; cdabbrev-current-window must not be nil
   (set-buffer (if (eq cdabbrev-current-window t)
                  (other-buffer)
                  (window-buffer cdabbrev-current-window))))
@@ -1001,7 +1001,7 @@ Each symbol is bound to a single completion entry.")
 
 ;; 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
+;; 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,7 +1019,7 @@ Each symbol is bound to a single completion entry.")
 
 (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."
+  ;; whether to save it.  t if one should always save it."
   (list 'nth 2 completion-entry))
 
 (defmacro completion-source (completion-entry)
@@ -1132,7 +1132,7 @@ Each symbol is bound to a single completion entry.")
   ;; "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.")
+  "Set to t if you want to debug the database.")
 
 ;; READS
 (defun find-exact-completion (string)
@@ -2402,7 +2402,7 @@ TYPE is the type of the wrapper to be added.  Can be :before or :under."
 (defun dynamic-completion-mode ()
   "Enable dynamic word-completion."
   (interactive)
-  (add-hook 'find-file-hooks 'cmpl-find-file-hook)
+  (add-hook 'find-file-hook 'cmpl-find-file-hook)
   (add-hook 'pre-command-hook 'completion-before-command)
 
   ;; Install the appropriate mode tables.