# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 797052880 0
# Node ID 60b7ab7d4fec6aca7a261baca1b7f9e25aafb413
# Parent  81a008df9184f6a7b2a6d8ec0560b826cbda187e
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.

diff -r 81a008df9184 -r 60b7ab7d4fec lisp/simple.el
--- 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.