From: Glenn Morris <rgm@gnu.org>
Date: Mon, 7 Sep 2009 02:35:29 +0000 (+0000)
Subject: (proced-mode-map): Bind "d" to proced-mark-alt.
X-Git-Tag: emacs-pretest-23.1.90~1454
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f09a02fc8ed6742265260fb686597f95bcb99c5;p=emacs.git

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