From: Dave Love <fx@gnu.org>
Date: Sun, 17 Sep 2000 17:00:05 +0000 (+0000)
Subject: (minor-mode-alist): Propertize the string.
X-Git-Tag: emacs-pretest-21.0.90~1565
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e209b8378eaf9bf5dd75a621fc64c1eb9f59eb89;p=emacs.git

(minor-mode-alist): Propertize the string.
---

diff --git a/lisp/view.el b/lisp/view.el
index e57ac270b18..c02b7580015 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -159,7 +159,12 @@ This is local in each buffer, once it is used.")
 
 (or (assq 'view-mode minor-mode-alist)
     (setq minor-mode-alist
-	  (cons '(view-mode " View") minor-mode-alist)))
+	  (cons (list 'view-mode
+		      (propertize " View"
+				  'help-echo "mouse-2: exit View mode"
+				  'keymap (make-mode-line-mouse2-map
+					   #'view-mode)))
+		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.