Mercurial > emacs

comparison src/keyboard.c @ 13638:eae7f6d657be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_char): Handle unread events from popup menus.
author Richard M. Stallman <rms@gnu.org>
date Fri, 24 Nov 1995 22:42:19 +0000
parents 3c46cfae4391
children 197ada595605
comparison
equal deleted inserted replaced
13637:0b081d93ee6c 13638:eae7f6d657be
1697 1697
1698 if (CONSP (Vunread_command_events)) 1698 if (CONSP (Vunread_command_events))
1699 { 1699 {
1700 c = XCONS (Vunread_command_events)->car; 1700 c = XCONS (Vunread_command_events)->car;
1701 Vunread_command_events = XCONS (Vunread_command_events)->cdr; 1701 Vunread_command_events = XCONS (Vunread_command_events)->cdr;
1702
1703 /* Undo what read_char_x_menu_prompt did when it unread
1704 additional keys returned by Fx_popup_menu. */
1705 if (CONSP (c)
1706 && (SYMBOLP (XCONS (c)->car) || INTEGERP (XCONS (c)->car))
1707 && NILP (XCONS (c)->cdr))
1708 c = XCONS (c)->car;
1702 1709
1703 if (this_command_key_count == 0) 1710 if (this_command_key_count == 0)
1704 goto reread_first; 1711 goto reread_first;
1705 else 1712 else
1706 goto reread; 1713 goto reread;