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))) |