diff lisp/proced.el @ 104877:24d04b560b0d

(proced-mode-map): Bind "d" to proced-mark-alt. (proced-mark-alt): New alias, to control the advertised key. (Bug#4362)

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