Mercurial > hg > xemacs-beta

comparison src/device-x.c @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 8e84bee8ddd0
children 6240c7796c7a
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
349 349
350 /* 350 /*
351 * Break apart the old XtOpenDisplay call into XOpenDisplay and 351 * Break apart the old XtOpenDisplay call into XOpenDisplay and
352 * XtDisplayInitialize so we can figure out whether there 352 * XtDisplayInitialize so we can figure out whether there
353 * are any XEmacs resources in the resource database before 353 * are any XEmacs resources in the resource database before
354 * we initialize Xt. This is so we can automagically support 354 * we intitialize Xt. This is so we can automagically support
355 * both `Emacs' and `XEmacs' application classes. 355 * both `Emacs' and `XEmacs' application classes.
356 */ 356 */
357 slow_down_interrupts (); 357 slow_down_interrupts ();
358 /* May not be needed but XtOpenDisplay could not deal with signals here. */ 358 /* May not be needed but XtOpenDisplay could not deal with signals here. */
359 dpy = DEVICE_X_DISPLAY (d) = XOpenDisplay (disp_name); 359 dpy = DEVICE_X_DISPLAY (d) = XOpenDisplay (disp_name);
1602 DEFUN ("x-grab-keyboard", Fx_grab_keyboard, 0, 1, 0, /* 1602 DEFUN ("x-grab-keyboard", Fx_grab_keyboard, 0, 1, 0, /*
1603 Grab the keyboard on the given device (defaulting to the selected one). 1603 Grab the keyboard on the given device (defaulting to the selected one).
1604 So long as the keyboard is grabbed, all keyboard events will be delivered 1604 So long as the keyboard is grabbed, all keyboard events will be delivered
1605 to emacs -- it is not possible for other X clients to eavesdrop on them. 1605 to emacs -- it is not possible for other X clients to eavesdrop on them.
1606 Ungrab the keyboard with `x-ungrab-keyboard' (use an unwind-protect). 1606 Ungrab the keyboard with `x-ungrab-keyboard' (use an unwind-protect).
1607 Returns t if the grab is successful, nil otherwise. 1607 Returns t if the grab was successful; nil otherwise.
1608 */ 1608 */
1609 (device)) 1609 (device))
1610 { 1610 {
1611 struct device *d = decode_x_device (device); 1611 struct device *d = decode_x_device (device);
1612 Window w = XtWindow (FRAME_X_TEXT_WIDGET (device_selected_frame (d))); 1612 Window w = XtWindow (FRAME_X_TEXT_WIDGET (device_selected_frame (d)));