From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 9 Aug 2001 14:51:48 +0000 (+0000)
Subject: (toplevel): Use mode-line-minor-mode-keymap for the
X-Git-Tag: emacs-pretest-21.0.105~232
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd78d527b798b2174a17875c9d076f07183141eb;p=emacs.git

(toplevel): Use mode-line-minor-mode-keymap for the
minor mode name.
---

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.