From e209b8378eaf9bf5dd75a621fc64c1eb9f59eb89 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 17 Sep 2000 17:00:05 +0000 Subject: [PATCH] (minor-mode-alist): Propertize the string. --- lisp/view.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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. -- 2.39.2