diff options
| author | Richard M. Stallman | 1998-05-02 05:05:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-02 05:05:55 +0000 |
| commit | 5b23b5e40b28f04208925e2850743ca3cae2ae88 (patch) | |
| tree | 75127f3d8c1aef512a91ef027afd60e0eaf7d23b | |
| parent | 779a69a822aa3c30df037eeb5c535ce24c78267b (diff) | |
| download | emacs-5b23b5e40b28f04208925e2850743ca3cae2ae88.tar.gz emacs-5b23b5e40b28f04208925e2850743ca3cae2ae88.zip | |
(apropos-mode-map): Bind q to quit-window.
| -rw-r--r-- | lisp/apropos.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 89ea5e46144..90fa4309f1b 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el | |||
| @@ -108,8 +108,9 @@ This looks good, but slows down the commands several times." | |||
| 108 | (defvar apropos-mode-map | 108 | (defvar apropos-mode-map |
| 109 | (let ((map (make-sparse-keymap))) | 109 | (let ((map (make-sparse-keymap))) |
| 110 | (define-key map "\C-m" 'apropos-follow) | 110 | (define-key map "\C-m" 'apropos-follow) |
| 111 | (define-key map " " 'scroll-up) | 111 | (define-key map " " 'scroll-up) |
| 112 | (define-key map "\177" 'scroll-down) | 112 | (define-key map "\177" 'scroll-down) |
| 113 | (define-key map "q" 'quit-window) | ||
| 113 | (define-key map [mouse-2] 'apropos-mouse-follow) | 114 | (define-key map [mouse-2] 'apropos-mouse-follow) |
| 114 | (define-key map [down-mouse-2] nil) | 115 | (define-key map [down-mouse-2] nil) |
| 115 | map) | 116 | map) |