Mercurial > hg > xemacs-beta

comparison src/menubar.c @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents d883f39b8495
children aabb7f5b1c81
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
107 /* Menu descriptor should be a list */ 107 /* Menu descriptor should be a list */
108 CHECK_CONS (desc); 108 CHECK_CONS (desc);
109 109
110 /* First element may be menu name, although can be omitted. 110 /* First element may be menu name, although can be omitted.
111 Let's think that if stuff begins with anything than a keyword 111 Let's think that if stuff begins with anything than a keyword
112 or a list (submenu), this is a menu name, expected to be a stirng */ 112 or a list (submenu), this is a menu name, expected to be a string */
113 if (!KEYWORDP (XCAR (desc)) && !CONSP (XCAR (desc))) 113 if (!KEYWORDP (XCAR (desc)) && !CONSP (XCAR (desc)))
114 { 114 {
115 CHECK_STRING (XCAR (desc)); 115 CHECK_STRING (XCAR (desc));
116 pgui_item->name = XCAR (desc); 116 pgui_item->name = XCAR (desc);
117 desc = XCDR (desc); 117 desc = XCDR (desc);
154 struct gcpro gcpro1; 154 struct gcpro gcpro1;
155 struct gui_item gui_item; 155 struct gui_item gui_item;
156 156
157 gui_item_init (&gui_item); 157 gui_item_init (&gui_item);
158 GCPRO_GUI_ITEM (&gui_item); 158 GCPRO_GUI_ITEM (&gui_item);
159 159
160 EXTERNAL_LIST_LOOP (path_entry, path) 160 EXTERNAL_LIST_LOOP (path_entry, path)
161 { 161 {
162 /* Verify that DESC describes a menu, not single item */ 162 /* Verify that DESC describes a menu, not single item */
163 if (!CONSP (desc)) 163 if (!CONSP (desc))
164 RETURN_UNGCPRO (Qnil); 164 RETURN_UNGCPRO (Qnil);
505 Ignored by XEnacs for easymenu.el compatability. 505 Ignored by XEnacs for easymenu.el compatability.
506 506
507 :label <form> (unimplemented!) Like :suffix, but replaces label 507 :label <form> (unimplemented!) Like :suffix, but replaces label
508 completely. 508 completely.
509 (might be added in 21.2). 509 (might be added in 21.2).
510 510
511 For example: 511 For example:
512 512
513 ("File" 513 ("File"
514 :filter file-menu-filter ; file-menu-filter is a function that takes 514 :filter file-menu-filter ; file-menu-filter is a function that takes
515 ; one argument (a list of menu items) and 515 ; one argument (a list of menu items) and