From ac29eb79ce6c4d576005332d61c0ffc785fe1bed Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 22 Jul 1993 05:47:10 +0000 Subject: [PATCH] (completion-list-mode): Renamed from completion-mode. (completion-list-mode-map): Likewise. --- lisp/simple.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 3eb8c847435..1739c393945 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2197,29 +2197,29 @@ it were the arg to `interactive' (which see) to interactively read the value." ;; 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 \\\\[mouse-choose-completion] to select +Type \\\\[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 -- 2.39.5