diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/proced.el | 6 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 02fc18d671b..401d9618e6e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/proced.el b/lisp/proced.el index 1d11f71f216..ff571da4301 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -459,7 +459,7 @@ Important: the match ends just after the marker.") (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 @@ The time interval for updates is specified via `proced-auto-update-interval'." (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") |