mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

Half-solution for menus popped up by mouse clicks.

Browse Source
This commit is contained in:
Eli Zaretskii 2013-09-22 18:23:06 +03:00
parent 824682ea45
commit 7ace926507
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/keyboard.c
View File

@ -1716,7 +1716,7 @@ read_menu_command (void)
if (! FRAME_LIVE_P (XFRAME (selected_frame)))
Fkill_emacs (Qnil);
if (i == 0 || i == -1)
return Qnil;
return Qt;
return read_key_sequence_cmd;
}

8
src/term.c
View File

@ -3176,11 +3176,15 @@ read_menu_input (struct frame *sf, int *x, int *y, bool *first_time)
{
#if 1
extern Lisp_Object read_menu_command (void);
Lisp_Object cmd = read_menu_command ();
Lisp_Object cmd;
int usable_input = 1;
int st = 0;
if (NILP (cmd))
do {
cmd = read_menu_command ();
} while NILP (cmd);
if (EQ (cmd, Qt))
return -1;
if (EQ (cmd, Qright_char) || EQ (cmd, Qforward_char))
*x += 1;