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;