From 27fa387ad10e6a5639de1ab08e7559c06e9d802d Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 13 Jul 2011 21:58:51 -0400 Subject: [PATCH] * bindings.el: Add advertised binding for set-mark-command (Bug#5772). --- lisp/ChangeLog | 5 +++++ lisp/bindings.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1778fa9bc97..6d652931328 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-07-14 Chong Yidong + + * bindings.el: Add advertised binding for set-mark-command + (Bug#5772). + 2011-07-14 Chong Yidong * bindings.el (mode-line-other-buffer): 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) -- 2.39.2