Mercurial > emacs

changeset 15112:e850ebd317e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has four elements per item. Add a separate slot for the hpos. (menu_bar_items): Likewise. (menu_bar_item): Initialize the hpos slot to 0.
author Richard M. Stallman <rms@gnu.org>
date Mon, 29 Apr 1996 15:58:16 +0000
parents 6a5ae152de0d
children 8db176b73c9f
files src/keyboard.c
diffstat 1 files changed, 22 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Mon Apr 29 15:57:12 1996 +0000
+++ b/src/keyboard.c	Mon Apr 29 15:58:16 1996 +0000
@@ -3712,11 +3712,11 @@
 
 		item = Qnil;
 		items = FRAME_MENU_BAR_ITEMS (f);
-		for (i = 0; i < XVECTOR (items)->size; i += 3)
+		for (i = 0; i < XVECTOR (items)->size; i += 4)
 		  {
 		    Lisp_Object pos, string;
 		    string = XVECTOR (items)->contents[i + 1];
-		    pos = XVECTOR (items)->contents[i + 2];
+		    pos = XVECTOR (items)->contents[i + 3];
 		    if (NILP (string))
 		      break;
 		    if (column >= XINT (pos)
@@ -5045,29 +5045,31 @@
       int i;
       int end = menu_bar_items_index;
 
-      for (i = 0; i < end; i += 3)
+      for (i = 0; i < end; i += 4)
 	if (EQ (XCONS (tail)->car, XVECTOR (menu_bar_items_vector)->contents[i]))
 	  {
-	    Lisp_Object tem0, tem1, tem2;
+	    Lisp_Object tem0, tem1, tem2, tem3;
 	    /* Move the item at index I to the end,
 	       shifting all the others forward.  */
 	    tem0 = XVECTOR (menu_bar_items_vector)->contents[i + 0];
 	    tem1 = XVECTOR (menu_bar_items_vector)->contents[i + 1];
 	    tem2 = XVECTOR (menu_bar_items_vector)->contents[i + 2];
-	    if (end > i + 3)
-	      bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 3],
+	    tem3 = XVECTOR (menu_bar_items_vector)->contents[i + 3];
+	    if (end > i + 4)
+	      bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 4],
 		     &XVECTOR (menu_bar_items_vector)->contents[i],
-		     (end - i - 3) * sizeof (Lisp_Object));
-	    XVECTOR (menu_bar_items_vector)->contents[end - 3] = tem0;
-	    XVECTOR (menu_bar_items_vector)->contents[end - 2] = tem1;
-	    XVECTOR (menu_bar_items_vector)->contents[end - 1] = tem2;
+		     (end - i - 4) * sizeof (Lisp_Object));
+	    XVECTOR (menu_bar_items_vector)->contents[end - 4] = tem0;
+	    XVECTOR (menu_bar_items_vector)->contents[end - 3] = tem1;
+	    XVECTOR (menu_bar_items_vector)->contents[end - 2] = tem2;
+	    XVECTOR (menu_bar_items_vector)->contents[end - 1] = tem3;
 	    break;
 	  }
     }
 
   /* Add nil, nil, nil at the end.  */
   i = menu_bar_items_index;
-  if (i + 3 > XVECTOR (menu_bar_items_vector)->size)
+  if (i + 4 > XVECTOR (menu_bar_items_vector)->size)
     {
       Lisp_Object tem;
       int newsize = 2 * i;
@@ -5080,6 +5082,7 @@
   XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil;
   XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil;
   XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil;
+  XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil;
   menu_bar_items_index = i;
 
   Vinhibit_quit = oquit;
@@ -5161,14 +5164,14 @@
       /* If a map has an explicit `undefined' as definition,
 	 discard any previously made menu bar item.  */
 
-      for (i = 0; i < menu_bar_items_index; i += 3)
+      for (i = 0; i < menu_bar_items_index; i += 4)
 	if (EQ (key, XVECTOR (menu_bar_items_vector)->contents[i]))
 	  {
-	    if (menu_bar_items_index > i + 3)
-	      bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 3],
+	    if (menu_bar_items_index > i + 4)
+	      bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 4],
 		     &XVECTOR (menu_bar_items_vector)->contents[i],
-		     (menu_bar_items_index - i - 3) * sizeof (Lisp_Object));
-	    menu_bar_items_index -= 3;
+		     (menu_bar_items_index - i - 4) * sizeof (Lisp_Object));
+	    menu_bar_items_index -= 4;
 	    return;
 	  }
 
@@ -5197,7 +5200,7 @@
     return;
 
   /* Find any existing item for this KEY.  */
-  for (i = 0; i < menu_bar_items_index; i += 3)
+  for (i = 0; i < menu_bar_items_index; i += 4)
     if (EQ (key, XVECTOR (menu_bar_items_vector)->contents[i]))
       break;
 
@@ -5205,7 +5208,7 @@
   if (i == menu_bar_items_index)
     {
       /* If vector is too small, get a bigger one.  */
-      if (i + 3 > XVECTOR (menu_bar_items_vector)->size)
+      if (i + 4 > XVECTOR (menu_bar_items_vector)->size)
 	{
 	  Lisp_Object tem;
 	  int newsize = 2 * i;
@@ -5218,6 +5221,7 @@
       XVECTOR (menu_bar_items_vector)->contents[i++] = key;
       XVECTOR (menu_bar_items_vector)->contents[i++] = item_string;
       XVECTOR (menu_bar_items_vector)->contents[i++] = Fcons (def, Qnil);
+      XVECTOR (menu_bar_items_vector)->contents[i++] = make_number (0);
       menu_bar_items_index = i;
     }
   /* We did find an item for this KEY.  Add DEF to its list of maps.  */