Mercurial > hg > xemacs-beta

comparison lisp/modes/view-less.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
49 49
50 (defvar view-minor-mode nil 50 (defvar view-minor-mode nil
51 "Non-nil when view-mode is active. Call `view-mode' to toggle.") 51 "Non-nil when view-mode is active. Call `view-mode' to toggle.")
52 (make-variable-buffer-local 'view-minor-mode) 52 (make-variable-buffer-local 'view-minor-mode)
53 53
54 ;;;###autoload
54 (defvar view-minor-mode-map 55 (defvar view-minor-mode-map
55 (let ((map (make-keymap))) 56 (let ((map (make-keymap)))
56 (set-keymap-name map 'view-minor-mode-map) 57 (set-keymap-name map 'view-minor-mode-map)
57 (suppress-keymap map) 58 (suppress-keymap map)
58 (define-key map "-" 'negative-argument) 59 (define-key map "-" 'negative-argument)
97 map 98 map
98 )) 99 ))
99 100
100 (add-minor-mode 'view-minor-mode " View" view-minor-mode-map) 101 (add-minor-mode 'view-minor-mode " View" view-minor-mode-map)
101 102
103 ;;;###autoload
102 (defvar view-mode-map 104 (defvar view-mode-map
103 (let ((map (copy-keymap view-minor-mode-map))) 105 (let ((map (copy-keymap view-minor-mode-map)))
104 (set-keymap-name map 'view-mode-map) 106 (set-keymap-name map 'view-mode-map)
105 map)) 107 map))
106 108