Mercurial > emacs

changeset 16860:247f0b107588

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-popup-menu): Pass in insist flag to mouse_position_hook.
author Geoff Voelker <voelker@cs.washington.edu>
date Mon, 13 Jan 1997 01:41:59 +0000
parents 2a3cc82fa1ea
children 310fd977a344
files src/w32menu.c
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/w32menu.c	Mon Jan 13 01:23:21 1997 +0000
+++ b/src/w32menu.c	Mon Jan 13 01:41:59 1997 +0000
@@ -1152,16 +1152,18 @@
   if (! NILP (position))
     {
       /* Decode the first argument: find the window and the coordinates.  */
-      if (EQ (position, Qt))
+      if (EQ (position, Qt)
+	  || (CONSP (position) && EQ (XCONS (position)->car, Qmenu_bar)))
 	{
 	  /* Use the mouse's current position.  */
-	  FRAME_PTR new_f = 0;
+	  FRAME_PTR new_f = selected_frame;
 	  Lisp_Object bar_window;
 	  int part;
 	  unsigned long time;
 	  
 	  if (mouse_position_hook)
-	    (*mouse_position_hook) (&new_f, &bar_window, &part, &x, &y, &time);
+	    (*mouse_position_hook) (&new_f, 1, &bar_window, 
+				    &part, &x, &y, &time);
 	  if (new_f != 0)
 	    XSETFRAME (window, new_f);
 	  else
@@ -1517,7 +1519,7 @@
   Lisp_Object x, y;
   unsigned long time;
 
-  (*mouse_position_hook) (&new_f, &bar_window, &part, &x, &y, &time);
+  (*mouse_position_hook) (&new_f, 1, &bar_window, &part, &x, &y, &time);
 
   if (f == new_f && other_menu_bar_item_p (f, x, y))
     {