Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 21:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Fx_popup_dialog, Fx_popup_menu): Handle case where

Browse source 
mouse_position_hook doesn't store anything.
This commit is contained in:
Richard M. Stallman 1994-03-18 01:27:43 +00:00
parent 5e9e88fde0
commit 5ca2ef64f0
1 changed files with 19 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/xmenu.c
View file

@ -672,13 +672,19 @@ cached information about equivalent key sequences.")
if (EQ (position, Qt))
{
/* Use the mouse's current position. */
FRAME_PTR new_f;
FRAME_PTR new_f = 0;
Lisp_Object bar_window;
int part;
unsigned long time;
(*mouse_position_hook) (&new_f, &bar_window, &part, &x, &y, &time);
XSET (window, Lisp_Frame, new_f);
if (new_f != 0)
XSET (window, Lisp_Frame, new_f);
else
{
window = selected_window;
XFASTINT (x) = 0;
XFASTINT (y) = 0;
}
}
else
{
@ -884,13 +890,21 @@ cached information about equivalent key sequences.")
if (EQ (position, Qt))
{
/* Use the mouse's current position. */
FRAME_PTR new_f;
FRAME_PTR new_f = 0;
Lisp_Object bar_window;
int part;
unsigned long time;
(*mouse_position_hook) (&new_f, &bar_window, &part, &x, &y, &time);
XSET (window, Lisp_Frame, new_f);
if (new_f != 0)
XSET (window, Lisp_Frame, new_f);
else
{
window = selected_window;
XFASTINT (x) = 0;
XFASTINT (y) = 0;
}
}
CHECK_NUMBER (x, 0);
@ -1808,7 +1822,6 @@ xdialog_show (f, x, y, menubarp, keymaps, title, error)
/* No selection has been chosen yet. */
menu_item_selection = 0;
/* Display the menu. */
lw_pop_up_all_widgets (dialog_id);