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

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1778fa9bc97..6d652931328 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 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):
         * bookmark.el (bookmark-bmenu-2-window):
         * bs.el (bs-cycle-next, bs-cycle-previous):
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 3d7135c16de..c4f9369219a 100644
--- 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)