diff options
| author | Alex Branham | 2019-01-21 09:50:11 -0600 |
|---|---|---|
| committer | Eli Zaretskii | 2019-01-25 10:47:57 +0200 |
| commit | f52de87166062934735db995d45c1bcb07faaf7f (patch) | |
| tree | 93221134e79cbf7a120e2f08ec5073ef3280723f | |
| parent | a2f7ed5e705f7b48e9038b5a1c9def1c45ee8fcf (diff) | |
| download | emacs-f52de87166062934735db995d45c1bcb07faaf7f.tar.gz emacs-f52de87166062934735db995d45c1bcb07faaf7f.zip | |
Make tabulated-list-mode-map inherit from special-mode-map
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode-map): Use
'make-composed-keymap'.
Bug #30452
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 6fdca2cd083..12d0151d67f 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el | |||
| @@ -151,8 +151,10 @@ If ADVANCE is non-nil, move forward by one line afterwards." | |||
| 151 | (forward-line))) | 151 | (forward-line))) |
| 152 | 152 | ||
| 153 | (defvar tabulated-list-mode-map | 153 | (defvar tabulated-list-mode-map |
| 154 | (let ((map (copy-keymap special-mode-map))) | 154 | (let ((map (make-sparse-keymap))) |
| 155 | (set-keymap-parent map button-buffer-map) | 155 | (set-keymap-parent map (make-composed-keymap |
| 156 | button-buffer-map | ||
| 157 | special-mode-map)) | ||
| 156 | (define-key map "n" 'next-line) | 158 | (define-key map "n" 'next-line) |
| 157 | (define-key map "p" 'previous-line) | 159 | (define-key map "p" 'previous-line) |
| 158 | (define-key map "S" 'tabulated-list-sort) | 160 | (define-key map "S" 'tabulated-list-sort) |