Mercurial > emacs
comparison lisp/view.el @ 14475:d08e488ceb2e
(view-mode-map): Don't call suppress-keymap.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 03 Feb 1996 03:25:42 +0000 |
| parents | 8b24fff422f4 |
| children | ce77caa93022 |
comparison
equal
deleted
inserted
replaced
| 14474:799da4d5aeb7 | 14475:d08e488ceb2e |
|---|---|
| 69 | 69 |
| 70 (defvar view-mode-map nil) | 70 (defvar view-mode-map nil) |
| 71 (if view-mode-map | 71 (if view-mode-map |
| 72 nil | 72 nil |
| 73 (setq view-mode-map (make-keymap)) | 73 (setq view-mode-map (make-keymap)) |
| 74 (suppress-keymap view-mode-map) | 74 ;; We used to call suppress-keymap here, but that isn't good in a minor mode. |
| 75 ;; Self-inserting characters will beep anyway, since the buffer is read-only, | |
| 76 ;; and we should not interfere with letters that serve as useful commands. | |
| 75 (define-key view-mode-map "q" 'view-exit) | 77 (define-key view-mode-map "q" 'view-exit) |
| 76 (define-key view-mode-map "<" 'beginning-of-buffer) | 78 (define-key view-mode-map "<" 'beginning-of-buffer) |
| 77 (define-key view-mode-map ">" 'end-of-buffer) | 79 (define-key view-mode-map ">" 'end-of-buffer) |
| 78 (define-key view-mode-map "\ev" 'View-scroll-lines-backward) | 80 (define-key view-mode-map "\ev" 'View-scroll-lines-backward) |
| 79 (define-key view-mode-map "\C-v" 'View-scroll-lines-forward) | 81 (define-key view-mode-map "\C-v" 'View-scroll-lines-forward) |