# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1252290929 0
# Node ID 24d04b560b0d98aee7fcf98876978bd3865ef5f5
# Parent  289f8b31cb3681f041c643895686b975896e306f
(proced-mode-map): Bind "d" to proced-mark-alt.
(proced-mark-alt): New alias, to control the advertised key.  (Bug#4362)

diff -r 289f8b31cb36 -r 24d04b560b0d lisp/ChangeLog
--- 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
diff -r 289f8b31cb36 -r 24d04b560b0d lisp/proced.el
--- 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")