Mercurial > hg > xemacs-beta

comparison src/menubar.c @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 859a2309aef8
children 6075d714658b
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
43 Lisp_Object Vmenubar_visible_p; 43 Lisp_Object Vmenubar_visible_p;
44 44
45 static Lisp_Object Vcurrent_menubar; /* DO NOT ever reference this. 45 static Lisp_Object Vcurrent_menubar; /* DO NOT ever reference this.
46 Always go through Qcurrent_menubar. 46 Always go through Qcurrent_menubar.
47 See below. */ 47 See below. */
48
48 Lisp_Object Vblank_menubar; 49 Lisp_Object Vblank_menubar;
49 50
50 int popup_menu_titles; 51 int popup_menu_titles;
51 52
52 Lisp_Object Vmenubar_pointer_glyph; 53 Lisp_Object Vmenubar_pointer_glyph;
175 struct frame *f = decode_frame(Qnil); 176 struct frame *f = decode_frame(Qnil);
176 MAYBE_FRAMEMETH (f, popup_menu, (menu_desc,event)); 177 MAYBE_FRAMEMETH (f, popup_menu, (menu_desc,event));
177 return Qnil; 178 return Qnil;
178 } 179 }
179 180
181 DEFUN ("accelerate-menu", Faccelerate_menu, 0, 0, "_", /*
182 Make the menubar active. Menu items can be selected using menu accelerators
183 or by actions defined in menu-accelerator-map.
184 */
185 ())
186 {
187 event_menu_accelerate ();
188 return Qnil;
189 }
190
180 void 191 void
181 syms_of_menubar (void) 192 syms_of_menubar (void)
182 { 193 {
183 defsymbol (&Qcurrent_menubar, "current-menubar"); 194 defsymbol (&Qcurrent_menubar, "current-menubar");
184 DEFSUBR (Fpopup_menu); 195 DEFSUBR (Fpopup_menu);
196 DEFSUBR (Faccelerate_menu);
185 } 197 }
186 198
187 void 199 void
188 vars_of_menubar (void) 200 vars_of_menubar (void)
189 { 201 {