* bindings.el: Add advertised binding for set-mark-command (Bug#5772).
This commit is contained in:
parent
8bdfa0649b
commit
27fa387ad1
2 changed files with 7 additions and 0 deletions
|
@ -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):
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue