Mercurial > hg > xemacs-beta

comparison src/menubar.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 376386a54a3c
children 2d532a89d707
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
89 Lisp_Object oldval) 89 Lisp_Object oldval)
90 { 90 {
91 update_frame_menubars (f); 91 update_frame_menubars (f);
92 } 92 }
93 93
94 DEFUN ("popup-menu", Fpopup_menu, Spopup_menu, 1, 2, 0 /* 94 DEFUN ("popup-menu", Fpopup_menu, 1, 2, 0, /*
95 Pop up the given menu. 95 Pop up the given menu.
96 A menu description is a list of menu items, strings, and submenus. 96 A menu description is a list of menu items, strings, and submenus.
97 97
98 The first element of a menu must be a string, which is the name of the menu. 98 The first element of a menu must be a string, which is the name of the menu.
99 This is the string that will be displayed in the parent menu, if any. For 99 This is the string that will be displayed in the parent menu, if any. For
167 [ \"Save As...\" write-file t ] 167 [ \"Save As...\" write-file t ]
168 [ \"Revert Buffer\" revert-buffer (buffer-modified-p) ] 168 [ \"Revert Buffer\" revert-buffer (buffer-modified-p) ]
169 [ \"Read Only\" toggle-read-only :style toggle :selected buffer-read-only ] 169 [ \"Read Only\" toggle-read-only :style toggle :selected buffer-read-only ]
170 170
171 See menubar.el for many more examples. 171 See menubar.el for many more examples.
172 */ ) 172 */
173 (menu_desc, event) 173 (menu_desc, event))
174 Lisp_Object menu_desc, event;
175 { 174 {
176 struct frame *f = decode_frame(Qnil); 175 struct frame *f = decode_frame(Qnil);
177 MAYBE_FRAMEMETH (f, popup_menu, (menu_desc,event)); 176 MAYBE_FRAMEMETH (f, popup_menu, (menu_desc,event));
178 return Qnil; 177 return Qnil;
179 } 178 }
180 179
181 void 180 void
182 syms_of_menubar (void) 181 syms_of_menubar (void)
183 { 182 {
184 defsymbol (&Qcurrent_menubar, "current-menubar"); 183 defsymbol (&Qcurrent_menubar, "current-menubar");
185 defsubr (&Spopup_menu); 184 DEFSUBR (Fpopup_menu);
186 } 185 }
187 186
188 void 187 void
189 vars_of_menubar (void) 188 vars_of_menubar (void)
190 { 189 {