[Emacs-diffs] emacs/lisp ChangeLog proced.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/07 02:35:33

Modified files:
        lisp           : ChangeLog proced.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16109&r2=1.16110
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/proced.el?cvsroot=emacs&r1=1.38&r2=1.39

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16109
retrieving revision 1.16110
diff -u -b -r1.16109 -r1.16110
--- ChangeLog   7 Sep 2009 02:26:37 -0000       1.16109
+++ ChangeLog   7 Sep 2009 02:35:29 -0000       1.16110
@@ -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  <address@hidden>
 
        * vc-git.el (vc-git-annotate-command): Use separator to parse

Index: proced.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/proced.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- proced.el   6 Sep 2009 20:08:36 -0000       1.38
+++ proced.el   7 Sep 2009 02:35:32 -0000       1.39
@@ -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")