Mercurial > hg > xemacs-beta

comparison lisp/modes/view-less.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 8d2a9b52c682
children 9f59509498e1
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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
55 (defvar view-minor-mode-map 54 (defvar view-minor-mode-map
56 (let ((map (make-keymap))) 55 (let ((map (make-keymap)))
57 (set-keymap-name map 'view-minor-mode-map) 56 (set-keymap-name map 'view-minor-mode-map)
58 (suppress-keymap map) 57 (suppress-keymap map)
59 (define-key map "-" 'negative-argument) 58 (define-key map "-" 'negative-argument)
98 map 97 map
99 )) 98 ))
100 99
101 (add-minor-mode 'view-minor-mode " View" view-minor-mode-map) 100 (add-minor-mode 'view-minor-mode " View" view-minor-mode-map)
102 101
103 ;;;###autoload
104 (defvar view-mode-map 102 (defvar view-mode-map
105 (let ((map (copy-keymap view-minor-mode-map))) 103 (let ((map (copy-keymap view-minor-mode-map)))
106 (set-keymap-name map 'view-mode-map) 104 (set-keymap-name map 'view-mode-map)
107 map)) 105 map))
108 106