Mercurial > emacs
comparison lisp/view.el @ 31665:37d1a054e5e0
(minor-mode-alist): Propertize the string.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 17 Sep 2000 17:00:05 +0000 |
parents | 1ea4cf592264 |
children | d4a37dfbba9d |
comparison
equal
deleted
inserted
replaced
31664:b41bc1b0a044 | 31665:37d1a054e5e0 |
---|---|
157 This is local in each buffer, once it is used.") | 157 This is local in each buffer, once it is used.") |
158 (make-variable-buffer-local 'view-overlay) | 158 (make-variable-buffer-local 'view-overlay) |
159 | 159 |
160 (or (assq 'view-mode minor-mode-alist) | 160 (or (assq 'view-mode minor-mode-alist) |
161 (setq minor-mode-alist | 161 (setq minor-mode-alist |
162 (cons '(view-mode " View") minor-mode-alist))) | 162 (cons (list 'view-mode |
163 (propertize " View" | |
164 'help-echo "mouse-2: exit View mode" | |
165 'keymap (make-mode-line-mouse2-map | |
166 #'view-mode))) | |
167 minor-mode-alist))) | |
163 | 168 |
164 ;; Define keymap inside defvar to make it easier to load changes. | 169 ;; Define keymap inside defvar to make it easier to load changes. |
165 ;; Some redundant "less"-like key bindings below have been commented out. | 170 ;; Some redundant "less"-like key bindings below have been commented out. |
166 (defvar view-mode-map | 171 (defvar view-mode-map |
167 (let ((map (make-sparse-keymap))) | 172 (let ((map (make-sparse-keymap))) |