Mercurial > hg > xemacs-beta

comparison src/event-Xt.c @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children c0c698873ce1
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
643 (FRAME_X_XIC (x_window_to_frame \ 643 (FRAME_X_XIC (x_window_to_frame \
644 (get_device_from_display (event->display), event->window)), \ 644 (get_device_from_display (event->display), event->window)), \
645 event, bufptr, bufsiz, &keysym, &status); 645 event, bufptr, bufsiz, &keysym, &status);
646 #endif /* XIM_XLIB */ 646 #endif /* XIM_XLIB */
647 LOOKUPSTRING; 647 LOOKUPSTRING;
648 check_status: 648 check_status: /* Come-From XBufferOverflow */
649 649
650 #ifdef DEBUG_XEMACS 650 #ifdef DEBUG_XEMACS
651 if (x_debug_events > 0) 651 if (x_debug_events > 0)
652 { 652 {
653 stderr_out (" status="); 653 stderr_out (" status=");
762 */ 762 */
763 if ((((unsigned int) keysym) & (~0xFF)) == ((unsigned int) 0xFF00)) 763 if ((((unsigned int) keysym) & (~0xFF)) == ((unsigned int) 0xFF00))
764 { 764 {
765 char buf [255]; 765 char buf [255];
766 char *s1, *s2; 766 char *s1, *s2;
767 for (s1 = name, s2 = buf; *s1; s1++, s2++) 767 for (s1 = name, s2 = buf; *s1; s1++, s2++) {
768 *s2 = tolower (* (unsigned char *) s1); 768 if (*s1 == '_') {
769 *s2 = '-';
770 } else {
771 *s2 = tolower (* (unsigned char *) s1);
772 }
773 }
769 *s2 = 0; 774 *s2 = 0;
770 return (KEYSYM (buf)); 775 return (KEYSYM (buf));
771 } 776 }
772 return (KEYSYM (name)); 777 return (KEYSYM (name));
773 } 778 }