Mercurial > hg > xemacs-beta

comparison src/menubar.c @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 3078fd1074e8
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
230 UNGCPRO; 230 UNGCPRO;
231 return desc; 231 return desc;
232 } 232 }
233 233
234 DEFUN ("popup-menu", Fpopup_menu, 1, 2, 0, /* 234 DEFUN ("popup-menu", Fpopup_menu, 1, 2, 0, /*
235 Pop up the given menu. 235 Pop up the menu described by MENU-DESCRIPTION.
236 A menu description is a list of menu items, strings, and submenus. 236 A menu description is a list of menu items, strings, and submenus.
237 237
238 The first element of a menu must be a string, which is the name of the menu. 238 The first element of a menu must be a string, which is the name of the menu.
239 This is the string that will be displayed in the parent menu, if any. For 239 This is the string that will be displayed in the parent menu, if any. For
240 toplevel menus, it is ignored. This string is not displayed in the menu 240 toplevel menus, it is ignored. This string is not displayed in the menu
310 [ "Revert Buffer" revert-buffer (buffer-modified-p) ] 310 [ "Revert Buffer" revert-buffer (buffer-modified-p) ]
311 [ "Read Only" toggle-read-only :style toggle :selected buffer-read-only ] 311 [ "Read Only" toggle-read-only :style toggle :selected buffer-read-only ]
312 312
313 See menubar.el for many more examples. 313 See menubar.el for many more examples.
314 */ 314 */
315 (menu_desc, event)) 315 (menu_description, event))
316 { 316 {
317 struct frame *f = decode_frame(Qnil); 317 struct frame *f = decode_frame (Qnil);
318 MAYBE_FRAMEMETH (f, popup_menu, (menu_desc,event)); 318 MAYBE_FRAMEMETH (f, popup_menu, (menu_description, event));
319 return Qnil; 319 return Qnil;
320 } 320 }
321 321
322 DEFUN ("normalize-menu-item-name", Fnormalize_menu_item_name, 1, 2, 0, /* 322 DEFUN ("normalize-menu-item-name", Fnormalize_menu_item_name, 1, 2, 0, /*
323 Convert a menu item name string into normal form, and return the new string. 323 Convert a menu item name string into normal form, and return the new string.
737 set_specifier_fallback (Vmenubar_visible_p, list1 (Fcons (Qnil, Qt))); 737 set_specifier_fallback (Vmenubar_visible_p, list1 (Fcons (Qnil, Qt)));
738 set_specifier_caching (Vmenubar_visible_p, 738 set_specifier_caching (Vmenubar_visible_p,
739 offsetof (struct window, menubar_visible_p), 739 offsetof (struct window, menubar_visible_p),
740 menubar_visible_p_changed, 740 menubar_visible_p_changed,
741 offsetof (struct frame, menubar_visible_p), 741 offsetof (struct frame, menubar_visible_p),
742 menubar_visible_p_changed_in_frame); 742 menubar_visible_p_changed_in_frame, 0);
743 } 743 }
744 744
745 void 745 void
746 complex_vars_of_menubar (void) 746 complex_vars_of_menubar (void)
747 { 747 {