(proced-mode-map): Bind "d" to proced-mark-alt.

(proced-mark-alt): New alias, to control the advertised key.  (Bug#4362)

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")