Mercurial > emacs

comparison lisp/view.el @ 33423:d4a37dfbba9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use local-map property, not keymap on mode-line string.
author Dave Love <fx@gnu.org>
date Sun, 12 Nov 2000 00:53:35 +0000
parents 37d1a054e5e0
children b174db545cfd
comparison
equal deleted inserted replaced
33422:c8f856ed18d0 33423:d4a37dfbba9d
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 (list 'view-mode 162 (cons (list 'view-mode
163 (propertize " View" 163 (propertize " View"
164 'help-echo "mouse-2: exit View mode" 164 'help-echo "mouse-2: exit View mode"
165 'keymap (make-mode-line-mouse2-map 165 'local-map (make-mode-line-mouse2-map
166 #'view-mode))) 166 #'view-mode)))
167 minor-mode-alist))) 167 minor-mode-alist)))
168 168
169 ;; Define keymap inside defvar to make it easier to load changes. 169 ;; Define keymap inside defvar to make it easier to load changes.
170 ;; Some redundant "less"-like key bindings below have been commented out. 170 ;; Some redundant "less"-like key bindings below have been commented out.
171 (defvar view-mode-map 171 (defvar view-mode-map