diff options
| -rw-r--r-- | lisp/simple.el | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 256a39eb220..20a1d9fc4e7 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2857,19 +2857,12 @@ PREFIX is the string that represents this modifier in an event type symbol." | |||
| 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 | ||