(proced-mode-map): Prefer "m" for proced-mark.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c44ca6f8efa4711ae4a5ba4c0b2b8ed7b4e29001..64b3612c7f47fa6a63fb152a02010c8902757528 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-09-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * proced.el (proced-mode-map): Prefer "m" for proced-mark.
+
 2009-09-11  Nick Roberts  <nickrob@snap.net.nz>
 
        * progmodes/gdb-mi.el (gdb-var-update-regexp): Delete.

diff --git a/lisp/proced.el b/lisp/proced.el
index ff571da43013f4faa42d53c37426c81b986b5edf..39ce00326a77cb7b319601d3aa1900f7745e1dc7 100644 (file)
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -461,6 +461,7 @@ Important: the match ends just after the marker.")
     ;; marking
     (define-key km "d" 'proced-mark-alt) ; Dired compatibility ("delete")
     (define-key km "m" 'proced-mark)
+    (put 'proced-mark :advertised-binding "m")
     (define-key km "u" 'proced-unmark)
     (define-key km "\177" 'proced-unmark-backward)
     (define-key km "M" 'proced-mark-all)