Mercurial > hg > xemacs-beta
comparison src/event-Xt.c @ 76:c0c698873ce1 r20-0b33
Import from CVS: tag r20-0b33
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:05:10 +0200 |
parents | 54cc21c15cbb |
children | c7528f8e288d |
comparison
equal
deleted
inserted
replaced
75:a4e0195b387b | 76:c0c698873ce1 |
---|---|
638 len = XmImMbLookupString (XtWindowToWidget (event->display, event->window), \ | 638 len = XmImMbLookupString (XtWindowToWidget (event->display, event->window), \ |
639 event, bufptr, bufsiz, &keysym, &status); | 639 event, bufptr, bufsiz, &keysym, &status); |
640 #else /* XIM_XLIB */ | 640 #else /* XIM_XLIB */ |
641 #define LOOKUPSTRING \ | 641 #define LOOKUPSTRING \ |
642 len = XmbLookupString \ | 642 len = XmbLookupString \ |
643 (FRAME_X_XIC (x_window_to_frame \ | 643 (FRAME_X_XIC (x_any_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: /* Come-From XBufferOverflow */ | 648 check_status: /* Come-From XBufferOverflow */ |
706 XEVENT (emacs_event)->event.key.modifiers = 0; | 706 XEVENT (emacs_event)->event.key.modifiers = 0; |
707 XEVENT (emacs_event)->event.key.keysym = make_char (ch); | 707 XEVENT (emacs_event)->event.key.keysym = make_char (ch); |
708 enqueue_Xt_dispatch_event (emacs_event); | 708 enqueue_Xt_dispatch_event (emacs_event); |
709 } | 709 } |
710 Lstream_close (XLSTREAM (instream)); | 710 Lstream_close (XLSTREAM (instream)); |
711 return Qnil; | 711 return (Qnil); |
712 } | 712 } |
713 case XLookupNone: return Qnil; | 713 case XLookupNone: return (Qnil); |
714 case XBufferOverflow: | 714 case XBufferOverflow: |
715 bufptr = alloca (len+1); | 715 bufptr = alloca (len+1); |
716 bufsiz = len+1; | 716 bufsiz = len+1; |
717 LOOKUPSTRING; | 717 LOOKUPSTRING; |
718 goto check_status; | 718 goto check_status; |