Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 364816949b59
children 4be1180a9e89
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1677 { 1677 {
1678 struct device *d = XDEVICE (XCAR (devcons)); 1678 struct device *d = XDEVICE (XCAR (devcons));
1679 Lisp_Object sel_frame = DEVICE_SELECTED_FRAME (d); 1679 Lisp_Object sel_frame = DEVICE_SELECTED_FRAME (d);
1680 1680
1681 /* You'd think that maybe we should use FRAME_WITH_FOCUS_REAL, 1681 /* You'd think that maybe we should use FRAME_WITH_FOCUS_REAL,
1682 but that can cause us to end up in an infinite loop focussing 1682 but that can cause us to end up in an infinite loop focusing
1683 between two frames. It seems that since the call to `select-frame' 1683 between two frames. It seems that since the call to `select-frame'
1684 in emacs_handle_focus_change_final() is based on the _FOR_HOOKS 1684 in emacs_handle_focus_change_final() is based on the _FOR_HOOKS
1685 value, we need to do so too. */ 1685 value, we need to do so too. */
1686 if (!NILP (sel_frame) && 1686 if (!NILP (sel_frame) &&
1687 !focus_follows_mouse && 1687 !focus_follows_mouse &&
3910 The sequence read is sufficient to specify a non-prefix command starting 3910 The sequence read is sufficient to specify a non-prefix command starting
3911 from the current local and global keymaps. A C-g typed while in this 3911 from the current local and global keymaps. A C-g typed while in this
3912 function is treated like any other character, and `quit-flag' is not set. 3912 function is treated like any other character, and `quit-flag' is not set.
3913 3913
3914 First arg PROMPT is a prompt string. If nil, do not prompt specially. 3914 First arg PROMPT is a prompt string. If nil, do not prompt specially.
3915 Second (optional) arg CONTINUE-ECHO, if non-nil, means this key echos 3915 Second (optional) arg CONTINUE-ECHO, if non-nil, means this key echoes
3916 as a continuation of the previous key. 3916 as a continuation of the previous key.
3917 3917
3918 The third (optional) arg DONT-DOWNCASE-LAST, if non-nil, means do not 3918 The third (optional) arg DONT-DOWNCASE-LAST, if non-nil, means do not
3919 convert the last event to lower case. (Normally any upper case event 3919 convert the last event to lower case. (Normally any upper case event
3920 is converted to lower case if the original event is undefined and the lower 3920 is converted to lower case if the original event is undefined and the lower
4367 DEFVAR_LISP ("help-char", &Vhelp_char /* 4367 DEFVAR_LISP ("help-char", &Vhelp_char /*
4368 Character to recognize as meaning Help. 4368 Character to recognize as meaning Help.
4369 When it is read, do `(eval help-form)', and display result if it's a string. 4369 When it is read, do `(eval help-form)', and display result if it's a string.
4370 If the value of `help-form' is nil, this char can be read normally. 4370 If the value of `help-form' is nil, this char can be read normally.
4371 This can be any form recognized as a single key specifier. 4371 This can be any form recognized as a single key specifier.
4372 To disable the help-char, set it to a negative number. 4372 The help-char cannot be a negative number in XEmacs.
4373 */ ); 4373 */ );
4374 Vhelp_char = make_char (8); /* C-h */ 4374 Vhelp_char = make_char (8); /* C-h */
4375 4375
4376 DEFVAR_LISP ("help-form", &Vhelp_form /* 4376 DEFVAR_LISP ("help-form", &Vhelp_form /*
4377 Form to execute when character help-char is read. 4377 Form to execute when character help-char is read.