Mercurial > emacs
changeset 104877:24d04b560b0d
(proced-mode-map): Bind "d" to proced-mark-alt.
(proced-mark-alt): New alias, to control the advertised key. (Bug#4362)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 07 Sep 2009 02:35:29 +0000 |
| parents | 289f8b31cb36 |
| children | b5cd21deee56 |
| files | lisp/ChangeLog lisp/proced.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Sep 07 02:26:37 2009 +0000 +++ b/lisp/ChangeLog Mon Sep 07 02:35:29 2009 +0000 @@ -2,6 +2,9 @@ * files.el (auto-mode-alist): Use delphi-mode for .dpr files. + * proced.el (proced-mode-map): Bind "d" to proced-mark-alt. + (proced-mark-alt): New alias, to control the advertised key. (Bug#4362) + 2009-09-06 Nick Roberts <nickrob@snap.net.nz> * vc-git.el (vc-git-annotate-command): Use separator to parse
--- a/lisp/proced.el Mon Sep 07 02:26:37 2009 +0000 +++ b/lisp/proced.el Mon Sep 07 02:35:29 2009 +0000 @@ -459,7 +459,7 @@ (define-key km [down] 'next-line) (define-key km [up] 'previous-line) ;; marking - (define-key km "d" 'proced-mark) ; Dired compatibility ("delete") + (define-key km "d" 'proced-mark-alt) ; Dired compatibility ("delete") (define-key km "m" 'proced-mark) (define-key km "u" 'proced-unmark) (define-key km "\177" 'proced-unmark-backward) @@ -716,6 +716,10 @@ (interactive "p") (proced-do-mark t count)) +;; So we can preferentially advertise the "m" binding in the mode help, +;; rather than the "d" one. +(defalias 'proced-mark-alt 'proced-mark) + (defun proced-unmark (&optional count) "Unmark the current (or next COUNT) processes." (interactive "p")