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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02fc18d671b7701f81257adf28d5ed976c99db8c..401d9618e6e65e3e7f591ea5518785601bf42404 100644 (file)
--- 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 1d11f71f2169d899188c2c5f0624452c99caaa07..ff571da43013f4faa42d53c37426c81b986b5edf 100644 (file)
--- 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")