Mercurial > hg > xemacs-beta

comparison src/event-Xt.c @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents c7528f8e288d
children 6a378aca36af
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
537 clear_sticky_modifiers (struct device *d) 537 clear_sticky_modifiers (struct device *d)
538 { 538 {
539 struct x_device *xd = DEVICE_X_DATA (d); 539 struct x_device *xd = DEVICE_X_DATA (d);
540 540
541 xd->need_to_add_mask = 0; 541 xd->need_to_add_mask = 0;
542 xd->last_downkey = 0; 542 xd->last_downkey = 0;
543 xd->release_time = 0; 543 xd->release_time = 0;
544 xd->down_mask = 0; 544 xd->down_mask = 0;
545 } 545 }
546 546
547 static int 547 static int
548 keysym_obeys_caps_lock_p (KeySym sym, struct device *d) 548 keysym_obeys_caps_lock_p (KeySym sym, struct device *d)
549 { 549 {
733 char buf [255]; 733 char buf [255];
734 sprintf (buf, "unknown_keysym_0x%X", (int) keysym); 734 sprintf (buf, "unknown_keysym_0x%X", (int) keysym);
735 return KEYSYM (buf); 735 return KEYSYM (buf);
736 } 736 }
737 /* If it's got a one-character name, that's good enough. */ 737 /* If it's got a one-character name, that's good enough. */
738 if (!name[1]) return make_char (name[0]); 738 if (!name[1])
739 return make_char (name[0]);
739 740
740 /* If it's in the "Keyboard" character set, downcase it. 741 /* If it's in the "Keyboard" character set, downcase it.
741 The case of those keysyms is too totally random for us to 742 The case of those keysyms is too totally random for us to
742 force anyone to remember them. 743 force anyone to remember them.
743 The case of the other character sets is significant, however. 744 The case of the other character sets is significant, however.