Commit 27fa387a authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 8bdfa064
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> 2011-07-14 Chong Yidong <cyd@stupidchicken.com>
* bindings.el (mode-line-other-buffer): * bindings.el (mode-line-other-buffer):
......
...@@ -849,6 +849,8 @@ if `inhibit-field-text-motion' is non-nil." ...@@ -849,6 +849,8 @@ if `inhibit-field-text-motion' is non-nil."
(define-key global-map "\C-@" 'set-mark-command) (define-key global-map "\C-@" 'set-mark-command)
;; Many people are used to typing C-SPC and getting C-@. ;; Many people are used to typing C-SPC and getting C-@.
(define-key global-map [?\C- ] 'set-mark-command) (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-x" 'exchange-point-and-mark)
(define-key ctl-x-map "\C-@" 'pop-global-mark) (define-key ctl-x-map "\C-@" 'pop-global-mark)
(define-key ctl-x-map [?\C- ] 'pop-global-mark) (define-key ctl-x-map [?\C- ] 'pop-global-mark)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment