* bindings.el: Add advertised binding for set-mark-command (Bug#5772).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1778fa9bc97429b0c9301a32025f95c4e77640d4..6d6529313287f8a7a3bb838cfd5c45f3bd8f533a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-14  Chong Yidong  <cyd@stupidchicken.com>
+
+       * bindings.el: Add advertised binding for set-mark-command
+       (Bug#5772).
+
 2011-07-14  Chong Yidong  <cyd@stupidchicken.com>
 
        * bindings.el (mode-line-other-buffer):

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 3d7135c16de72dac37f67c42a1353327f188251a..c4f9369219ac6a8d79d8640d8958e74de119c18c 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -849,6 +849,8 @@ if `inhibit-field-text-motion' is non-nil."
 (define-key global-map "\C-@" 'set-mark-command)
 ;; Many people are used to typing C-SPC and getting C-@.
 (define-key global-map [?\C- ] 'set-mark-command)
+(put 'set-mark-command :advertised-binding [?\C- ])
+
 (define-key ctl-x-map "\C-x" 'exchange-point-and-mark)
 (define-key ctl-x-map "\C-@" 'pop-global-mark)
 (define-key ctl-x-map [?\C- ] 'pop-global-mark)