# HG changeset patch
# User stephent
# Date 1030016060 0
# Node ID 8401dcd2d43a629b63c0505f1f5dfcc143ab704e
# Parent  0dc7756a58c493d8089117a39fb95cfa0477751c
[xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stop bogusly reinitting ascii_character

diff -r 0dc7756a58c4 -r 8401dcd2d43a src/event-Xt.c
--- a/src/event-Xt.c	Thu Aug 22 11:31:43 2002 +0000
+++ b/src/event-Xt.c	Thu Aug 22 11:34:20 2002 +0000
@@ -311,9 +311,11 @@
     {
       extern Lisp_Object Vcurrent_global_map;
       extern Lisp_Object Qascii_character;
-      Fput (symbol, Qascii_character, character);
-      if (NILP (Flookup_key (Vcurrent_global_map, symbol, Qnil)))
-	Fdefine_key (Vcurrent_global_map, symbol, Qself_insert_command);
+      if (NILP (Flookup_key (Vcurrent_global_map, symbol, Qnil))) 
+        {
+	  Fput (symbol, Qascii_character, character);
+	  Fdefine_key (Vcurrent_global_map, symbol, Qself_insert_command); 
+        }
     }
 }