Mercurial > hg > xemacs-beta

diff src/event-Xt.c @ 971:8401dcd2d43a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-22 11:34:20 by stephent] stop bogusly reinitting ascii_character
author stephent
date Thu, 22 Aug 2002 11:34:20 +0000
parents 5b372a329b97
children 5323022ae863
line wrap: on
line diff
--- 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); 
+        }
     }
 }