Mercurial > emacs
comparison lisp/simple.el @ 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 | f6caea9275af |
| children | e6bdaaa6ce1b |
comparison
equal
deleted
inserted
replaced
| 11205:81a008df9184 | 11206:60b7ab7d4fec |
|---|---|
| 2855 (setq event-type (intern (concat prefix (symbol-name event-type)))) | 2855 (setq event-type (intern (concat prefix (symbol-name event-type)))) |
| 2856 (if (symbolp event) | 2856 (if (symbolp event) |
| 2857 event-type | 2857 event-type |
| 2858 (cons event-type (cdr event))))))) | 2858 (cons event-type (cdr event))))))) |
| 2859 | 2859 |
| 2860 (define-key function-key-map [?\C-x escape ?h] 'event-apply-hyper-modifier) | 2860 (define-key function-key-map [?\C-x ?@ ?h] 'event-apply-hyper-modifier) |
| 2861 (define-key function-key-map [?\C-x escape ?s] 'event-apply-super-modifier) | 2861 (define-key function-key-map [?\C-x ?@ ?s] 'event-apply-super-modifier) |
| 2862 (define-key function-key-map [?\C-x escape ?m] 'event-apply-meta-modifier) | 2862 (define-key function-key-map [?\C-x ?@ ?m] 'event-apply-meta-modifier) |
| 2863 (define-key function-key-map [?\C-x escape ?a] 'event-apply-alt-modifier) | 2863 (define-key function-key-map [?\C-x ?@ ?a] 'event-apply-alt-modifier) |
| 2864 (define-key function-key-map [?\C-x escape ?S] 'event-apply-shift-modifier) | 2864 (define-key function-key-map [?\C-x ?@ ?S] 'event-apply-shift-modifier) |
| 2865 (define-key function-key-map [?\C-x escape ?c] 'event-apply-control-modifier) | 2865 (define-key function-key-map [?\C-x ?@ ?c] 'event-apply-control-modifier) |
| 2866 | |
| 2867 (define-key function-key-map [?\C-x ?\e ?h] 'event-apply-hyper-modifier) | |
| 2868 (define-key function-key-map [?\C-x ?\e ?s] 'event-apply-super-modifier) | |
| 2869 (define-key function-key-map [?\C-x ?\e ?m] 'event-apply-meta-modifier) | |
| 2870 (define-key function-key-map [?\C-x ?\e ?a] 'event-apply-alt-modifier) | |
| 2871 (define-key function-key-map [?\C-x ?\e ?S] 'event-apply-shift-modifier) | |
| 2872 (define-key function-key-map [?\C-x ?\e ?c] 'event-apply-control-modifier) | |
| 2873 | 2866 |
| 2874 ;;;; Keypad support. | 2867 ;;;; Keypad support. |
| 2875 | 2868 |
| 2876 ;;; Make the keypad keys act like ordinary typing keys. If people add | 2869 ;;; Make the keypad keys act like ordinary typing keys. If people add |
| 2877 ;;; bindings for the function key symbols, then those bindings will | 2870 ;;; bindings for the function key symbols, then those bindings will |