diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-08-09 14:51:48 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-08-09 14:51:48 +0000 |
| commit | fd78d527b798b2174a17875c9d076f07183141eb (patch) | |
| tree | 7664a7a346dfb372fd1710956cd8a55920d1767f /lisp/view.el | |
| parent | 541b8aff2bce778d4ec817c37d3197cf40518aaf (diff) | |
| download | emacs-fd78d527b798b2174a17875c9d076f07183141eb.tar.gz | |
(toplevel): Use mode-line-minor-mode-keymap for the
minor mode name.
Diffstat (limited to 'lisp/view.el')
| -rw-r--r-- | lisp/view.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/view.el b/lisp/view.el index 1b15bad4437..46fc267ed73 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -1,6 +1,6 @@ ;;; view.el --- peruse file or buffer without editing -;; Copyright (C) 1985, 1989, 1994, 1995, 1997, 2000 +;; Copyright (C) 1985, 1989, 1994, 1995, 1997, 2000, 2001 ;; Free Software Foundation, Inc. ;; Author: K. Shane Hartman @@ -157,14 +157,13 @@ that use View mode automatically.") This is local in each buffer, once it is used.") (make-variable-buffer-local 'view-overlay) -(or (assq 'view-mode minor-mode-alist) - (setq minor-mode-alist - (cons (list 'view-mode - (propertize " View" - 'help-echo "mouse-2: exit View mode" - 'local-map (make-mode-line-mouse2-map - #'view-mode))) - minor-mode-alist))) +(unless (assq 'view-mode minor-mode-alist) + (setq minor-mode-alist + (cons (list 'view-mode + (propertize " View" + 'local-map mode-line-minor-mode-keymap + 'help-echo "mouse-3: minor mode menu")) + minor-mode-alist))) ;; Define keymap inside defvar to make it easier to load changes. ;; Some redundant "less"-like key bindings below have been commented out. |