diff options
| author | Richard M. Stallman | 1996-08-26 21:27:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-08-26 21:27:24 +0000 |
| commit | 685b1bef7530989a585ca4be6e189c39d3cd23c5 (patch) | |
| tree | 5cbe8ef16daa8c2c810a7bef9d2af07310a7009f | |
| parent | 942bbf2b2bee0e44bb6c25de573233584dc02907 (diff) | |
| download | emacs-685b1bef7530989a585ca4be6e189c39d3cd23c5.tar.gz emacs-685b1bef7530989a585ca4be6e189c39d3cd23c5.zip | |
(apropos-mode-map): Don't use view-mode;
instead, bind SPC and DEL directly.
| -rw-r--r-- | lisp/apropos.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 6dd736e880e..8d1bbfb186e 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el | |||
| @@ -90,6 +90,8 @@ This looks good, but slows down the commands several times.") | |||
| 90 | (defvar apropos-mode-map | 90 | (defvar apropos-mode-map |
| 91 | (let ((map (make-sparse-keymap))) | 91 | (let ((map (make-sparse-keymap))) |
| 92 | (define-key map "\C-m" 'apropos-follow) | 92 | (define-key map "\C-m" 'apropos-follow) |
| 93 | (define-key map " " 'scroll-up) | ||
| 94 | (define-key map "\177" 'scroll-down) | ||
| 93 | (define-key map [mouse-2] 'apropos-mouse-follow) | 95 | (define-key map [mouse-2] 'apropos-mouse-follow) |
| 94 | (define-key map [down-mouse-2] nil) | 96 | (define-key map [down-mouse-2] nil) |
| 95 | map) | 97 | map) |
| @@ -115,7 +117,6 @@ This looks good, but slows down the commands several times.") | |||
| 115 | (interactive) | 117 | (interactive) |
| 116 | (kill-all-local-variables) | 118 | (kill-all-local-variables) |
| 117 | (use-local-map apropos-mode-map) | 119 | (use-local-map apropos-mode-map) |
| 118 | (view-mode) | ||
| 119 | (setq major-mode 'apropos-mode | 120 | (setq major-mode 'apropos-mode |
| 120 | mode-name "Apropos")) | 121 | mode-name "Apropos")) |
| 121 | 122 | ||