aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-05-02 04:50:07 +0000
committerKarl Heuer1995-05-02 04:50:07 +0000
commitc63f69527768e3e52d4ac8cd86f7cbee7d4e3a1a (patch)
tree83769d06b58bc069fbf2de6053da73cfec66767c
parent83d6804403451c75c6757521c4291ebfa0048ba1 (diff)
downloademacs-c63f69527768e3e52d4ac8cd86f7cbee7d4e3a1a.tar.gz
emacs-c63f69527768e3e52d4ac8cd86f7cbee7d4e3a1a.zip
(xmenu_show, menubar_selection_callback): Move declaration
of entry to an outer block, to guarantee its value is preserved.
-rw-r--r--src/xmenu.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/src/xmenu.c b/src/xmenu.c
index 5ac3ca80951..aaa098d55ad 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -1148,7 +1148,7 @@ menubar_selection_callback (widget, id, client_data)
1148 LWLIB_ID id; 1148 LWLIB_ID id;
1149 XtPointer client_data; 1149 XtPointer client_data;
1150{ 1150{
1151 Lisp_Object prefix; 1151 Lisp_Object prefix, entry;
1152 FRAME_PTR f = XFRAME (XVECTOR (frame_vector)->contents[id]); 1152 FRAME_PTR f = XFRAME (XVECTOR (frame_vector)->contents[id]);
1153 Lisp_Object vector; 1153 Lisp_Object vector;
1154 Lisp_Object *subprefix_stack; 1154 Lisp_Object *subprefix_stack;
@@ -1163,8 +1163,6 @@ menubar_selection_callback (widget, id, client_data)
1163 i = 0; 1163 i = 0;
1164 while (i < f->menu_bar_items_used) 1164 while (i < f->menu_bar_items_used)
1165 { 1165 {
1166 Lisp_Object entry;
1167
1168 if (EQ (XVECTOR (vector)->contents[i], Qnil)) 1166 if (EQ (XVECTOR (vector)->contents[i], Qnil))
1169 { 1167 {
1170 subprefix_stack[submenu_depth++] = prefix; 1168 subprefix_stack[submenu_depth++] = prefix;
@@ -1840,14 +1838,12 @@ xmenu_show (f, x, y, for_click, keymaps, title, error)
1840 the proper value. */ 1838 the proper value. */
1841 if (menu_item_selection != 0) 1839 if (menu_item_selection != 0)
1842 { 1840 {
1843 Lisp_Object prefix; 1841 Lisp_Object prefix, entry;
1844 1842
1845 prefix = Qnil; 1843 prefix = Qnil;
1846 i = 0; 1844 i = 0;
1847 while (i < menu_items_used) 1845 while (i < menu_items_used)
1848 { 1846 {
1849 Lisp_Object entry;
1850
1851 if (EQ (XVECTOR (menu_items)->contents[i], Qnil)) 1847 if (EQ (XVECTOR (menu_items)->contents[i], Qnil))
1852 { 1848 {
1853 subprefix_stack[submenu_depth++] = prefix; 1849 subprefix_stack[submenu_depth++] = prefix;