diff options
| author | Dave Love <fx@gnu.org> | 2000-09-17 17:00:05 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-09-17 17:00:05 +0000 |
| commit | e209b8378eaf9bf5dd75a621fc64c1eb9f59eb89 (patch) | |
| tree | bf18bda5d5392116ffb9101ec160c7374ae16c4f /lisp/view.el | |
| parent | 4b7c7a407c31dcee5cfc7e48bbb1e8710a9c7131 (diff) | |
| download | emacs-e209b8378eaf9bf5dd75a621fc64c1eb9f59eb89.tar.gz | |
(minor-mode-alist): Propertize the string.
Diffstat (limited to 'lisp/view.el')
| -rw-r--r-- | lisp/view.el | 7 |
1 files changed, 6 insertions, 1 deletions
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. |