Mercurial > emacs

changeset 4217:997e8a52f9fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(completion-list-mode): Renamed from completion-mode. (completion-list-mode-map): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Thu, 22 Jul 1993 05:47:10 +0000
parents 6f940dcec978
children 8e42b7df5c4f
files lisp/simple.el
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Jul 22 05:34:53 1993 +0000
+++ b/lisp/simple.el	Thu Jul 22 05:47:10 1993 +0000
@@ -2197,29 +2197,29 @@
 
 ;; Define the major mode for lists of completions.
 
-(defvar completion-mode-map nil)
-(or completion-mode-map
+(defvar completion-list-mode-map nil)
+(or completion-list-mode-map
     (let ((map (make-sparse-keymap)))
       (define-key map [mouse-2] 'mouse-choose-completion)
-      (setq completion-mode-map map)))
+      (setq completion-list-mode-map map)))
 
 ;; Completion mode is suitable only for specially formatted data.
-(put 'completion-mode 'mode-class 'special)
+(put 'completion-list-mode 'mode-class 'special)
 
-(defun completion-mode ()
+(defun completion-list-mode ()
   "Major mode for buffers showing lists of possible completions.
-Type \\<completion-mode-map>\\[mouse-choose-completion] to select
+Type \\<completion-list-mode-map>\\[mouse-choose-completion] to select
 a completion with the mouse."
   (interactive)
   (kill-all-local-variables)
-  (use-local-map completion-mode-map)
-  (setq mode-name "Completion")
-  (setq major-mode 'completion-mode)
-  (run-hooks 'completion-mode-hook))
+  (use-local-map completion-list-mode-map)
+  (setq mode-name "Completion List")
+  (setq major-mode 'completion-list-mode)
+  (run-hooks 'completion-list-mode-hook))
 
 (defun completion-setup-function ()
   (save-excursion
-    (completion-mode)
+    (completion-list-mode)
     (goto-char (point-min))
     (if window-system
 	(insert (substitute-command-keys