Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
970:0dc7756a58c4 971:8401dcd2d43a
309 309
310 if (CHARP (character)) 310 if (CHARP (character))
311 { 311 {
312 extern Lisp_Object Vcurrent_global_map; 312 extern Lisp_Object Vcurrent_global_map;
313 extern Lisp_Object Qascii_character; 313 extern Lisp_Object Qascii_character;
314 Fput (symbol, Qascii_character, character); 314 if (NILP (Flookup_key (Vcurrent_global_map, symbol, Qnil)))
315 if (NILP (Flookup_key (Vcurrent_global_map, symbol, Qnil))) 315 {
316 Fdefine_key (Vcurrent_global_map, symbol, Qself_insert_command); 316 Fput (symbol, Qascii_character, character);
317 Fdefine_key (Vcurrent_global_map, symbol, Qself_insert_command);
318 }
317 } 319 }
318 } 320 }
319 321
320 static void 322 static void
321 x_has_keysym (KeySym keysym, Lisp_Object hash_table, int with_modifiers) 323 x_has_keysym (KeySym keysym, Lisp_Object hash_table, int with_modifiers)