.

[gnu-emacs] / lisp / completion.el

diff --git a/lisp/completion.el b/lisp/completion.el
index 4dfb611f6b3cb7a8f6c6b06fe2c5dac793e3691d..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)
@@ -1204,7 +1204,7 @@ Must be called after `find-exact-completion'."
 
 (defun locate-completion-db-error ()
   ;; recursive error: really scrod
-  (error "Completion database corrupted.  Try M-x clear-all-completions.  Send bug report."))
+  (error "Completion database corrupted.  Try M-x clear-all-completions.  Send bug report"))
 
 ;; WRITES
 (defun add-completion-to-tail-if-new (string)
@@ -2402,18 +2402,18 @@ 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.
   (add-hook 'lisp-mode-hook
-           '(lambda ()
+           (lambda ()
               (setq cmpl-syntax-table cmpl-lisp-syntax-table)))
   (add-hook 'c-mode-hook
-           '(lambda ()
+           (lambda ()
               (setq cmpl-syntax-table cmpl-c-syntax-table)))
   (add-hook 'fortran-mode-hook
-           '(lambda ()
+           (lambda ()
               (setq cmpl-syntax-table cmpl-fortran-syntax-table)
               (completion-setup-fortran-mode)))
 
@@ -2434,7 +2434,7 @@ TYPE is the type of the wrapper to be added.  Can be :before or :under."
   ;; Save completions when killing Emacs.
 
   (add-hook 'kill-emacs-hook
-           '(lambda ()
+           (lambda ()
               (kill-emacs-save-completions)
               (cmpl-statistics-block
                (record-cmpl-kill-emacs))))