Mercurial > emacs
changeset 11206:60b7ab7d4fec
Change bindings of event-apply-control-modifier,
event-apply-meta-modifier, event-apply-hyper-modifier,
event-apply-shift-modifier, event-apply-alt-modifier, and
event-apply-super-modifier, in function-key-map, to use C-x @
instead of C-x ESC. Using escape causes problems since that's
in function-key-map itself.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 05 Apr 1995 03:34:40 +0000 |
| parents | 81a008df9184 |
| children | e917a1df21ef |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Apr 05 03:05:26 1995 +0000 +++ b/lisp/simple.el Wed Apr 05 03:34:40 1995 +0000 @@ -2857,19 +2857,12 @@ event-type (cons event-type (cdr event))))))) -(define-key function-key-map [?\C-x escape ?h] 'event-apply-hyper-modifier) -(define-key function-key-map [?\C-x escape ?s] 'event-apply-super-modifier) -(define-key function-key-map [?\C-x escape ?m] 'event-apply-meta-modifier) -(define-key function-key-map [?\C-x escape ?a] 'event-apply-alt-modifier) -(define-key function-key-map [?\C-x escape ?S] 'event-apply-shift-modifier) -(define-key function-key-map [?\C-x escape ?c] 'event-apply-control-modifier) - -(define-key function-key-map [?\C-x ?\e ?h] 'event-apply-hyper-modifier) -(define-key function-key-map [?\C-x ?\e ?s] 'event-apply-super-modifier) -(define-key function-key-map [?\C-x ?\e ?m] 'event-apply-meta-modifier) -(define-key function-key-map [?\C-x ?\e ?a] 'event-apply-alt-modifier) -(define-key function-key-map [?\C-x ?\e ?S] 'event-apply-shift-modifier) -(define-key function-key-map [?\C-x ?\e ?c] 'event-apply-control-modifier) +(define-key function-key-map [?\C-x ?@ ?h] 'event-apply-hyper-modifier) +(define-key function-key-map [?\C-x ?@ ?s] 'event-apply-super-modifier) +(define-key function-key-map [?\C-x ?@ ?m] 'event-apply-meta-modifier) +(define-key function-key-map [?\C-x ?@ ?a] 'event-apply-alt-modifier) +(define-key function-key-map [?\C-x ?@ ?S] 'event-apply-shift-modifier) +(define-key function-key-map [?\C-x ?@ ?c] 'event-apply-control-modifier) ;;;; Keypad support.