# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 997368708 0
# Node ID a86b8b3e96fdd76206f70a70136303ec2c835064
# Parent  75666bd5d498a5d7b94797d956ee18e82f4f8152
(toplevel): Use mode-line-minor-mode-keymap for the
minor mode name.

diff -r 75666bd5d498 -r a86b8b3e96fd lisp/view.el
--- a/lisp/view.el	Thu Aug 09 14:51:20 2001 +0000
+++ b/lisp/view.el	Thu Aug 09 14:51:48 2001 +0000
@@ -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 @@
 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.