Mercurial > emacs

changeset 31665:37d1a054e5e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(minor-mode-alist): Propertize the string.
author Dave Love <fx@gnu.org>
date Sun, 17 Sep 2000 17:00:05 +0000
parents b41bc1b0a044
children 3cc588d57c8c
files lisp/view.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/view.el	Sun Sep 17 16:58:20 2000 +0000
+++ b/lisp/view.el	Sun Sep 17 17:00:05 2000 +0000
@@ -159,7 +159,12 @@
 
 (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.