diff options
Diffstat (limited to 'lisp/erc/erc-list.el')
| -rw-r--r-- | lisp/erc/erc-list.el | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lisp/erc/erc-list.el b/lisp/erc/erc-list.el index ae579dba3bd..b8eb5a4aa19 100644 --- a/lisp/erc/erc-list.el +++ b/lisp/erc/erc-list.el @@ -117,6 +117,17 @@ (sort-fields col (point-min) (point-max)) (sort-numeric-fields col (point-min) (point-max)))))) +(defvar erc-list-menu-mode-map + (let ((map (make-keymap))) + (set-keymap-parent map special-mode-map) + (define-key map "k" 'erc-list-kill) + (define-key map "j" 'erc-list-join) + (define-key map "g" 'erc-list-revert) + (define-key map "n" 'next-line) + (define-key map "p" 'previous-line) + map) + "Local keymap for `erc-list-mode' buffers.") + (defvar erc-list-menu-sort-button-map (let ((map (make-sparse-keymap))) (define-key map [header-line mouse-1] 'erc-list-menu-sort-by-column) @@ -146,12 +157,6 @@ (put 'erc-list-menu-mode 'mode-class 'special) -(define-key erc-list-menu-mode-map "k" 'erc-list-kill) -(define-key erc-list-menu-mode-map "j" 'erc-list-join) -(define-key erc-list-menu-mode-map "g" 'erc-list-revert) -(define-key erc-list-menu-mode-map "n" 'next-line) -(define-key erc-list-menu-mode-map "p" 'previous-line) - ;; Handle a "322" response. This response tells us about a single ;; channel. (defun erc-list-handle-322 (proc parsed) |