projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(Vcharset_latin_viscii_lower): New variable.
[chise/xemacs-chise.git-]
/
src
/
menubar.c
diff --git
a/src/menubar.c
b/src/menubar.c
index
7b1fb16
..
8eab6af
100644
(file)
--- a/
src/menubar.c
+++ b/
src/menubar.c
@@
-102,14
+102,16
@@
current_frame_menubar (CONST struct frame* f)
}
Lisp_Object
}
Lisp_Object
-menu_parse_submenu_keywords (Lisp_Object desc, struct gui_item* pgui_item)
+menu_parse_submenu_keywords (Lisp_Object desc, Lisp_Object gui_item)
{
{
+ struct Lisp_Gui_Item* pgui_item = XGUI_ITEM (gui_item);
+
/* Menu descriptor should be a list */
CHECK_CONS (desc);
/* First element may be menu name, although can be omitted.
Let's think that if stuff begins with anything than a keyword
/* Menu descriptor should be a list */
CHECK_CONS (desc);
/* First element may be menu name, although can be omitted.
Let's think that if stuff begins with anything than a keyword
- or a list (submenu), this is a menu name, expected to be a stirng */
+ or a list (submenu), this is a menu name, expected to be a string */
if (!KEYWORDP (XCAR (desc)) && !CONSP (XCAR (desc)))
{
CHECK_STRING (XCAR (desc));
if (!KEYWORDP (XCAR (desc)) && !CONSP (XCAR (desc)))
{
CHECK_STRING (XCAR (desc));
@@
-130,7
+132,7
@@
menu_parse_submenu_keywords (Lisp_Object desc, struct gui_item* pgui_item)
desc = XCDR (desc);
if (!NILP (desc))
CHECK_CONS (desc);
desc = XCDR (desc);
if (!NILP (desc))
CHECK_CONS (desc);
- gui_item_add_keyval_pair (pgui_item, key, val);
+ gui_item_add_keyval_pair (gui_item, key, val, ERROR_ME);
}
/* Return the rest - supposed to be a list of items */
}
/* Return the rest - supposed to be a list of items */
@@
-152,11
+154,11
@@
See also 'find-menu-item'.
{
Lisp_Object path_entry, submenu_desc, submenu;
struct gcpro gcpro1;
{
Lisp_Object path_entry, submenu_desc, submenu;
struct gcpro gcpro1;
- struct gui_item gui_item;
+ Lisp_Object gui_item = allocate_gui_item ();
+ struct Lisp_Gui_Item* pgui_item = XGUI_ITEM (gui_item);
+
+ GCPRO1 (gui_item);
- gui_item_init (&gui_item);
- GCPRO_GUI_ITEM (&gui_item);
-
EXTERNAL_LIST_LOOP (path_entry, path)
{
/* Verify that DESC describes a menu, not single item */
EXTERNAL_LIST_LOOP (path_entry, path)
{
/* Verify that DESC describes a menu, not single item */
@@
-164,15
+166,15
@@
See also 'find-menu-item'.
RETURN_UNGCPRO (Qnil);
/* Parse this menu */
RETURN_UNGCPRO (Qnil);
/* Parse this menu */
- desc = menu_parse_submenu_keywords (desc, &gui_item);
+ desc = menu_parse_submenu_keywords (desc, gui_item);
/* Check that this (sub)menu is active */
/* Check that this (sub)menu is active */
- if (!gui_item_active_p (&gui_item))
+ if (!gui_item_active_p (gui_item))
RETURN_UNGCPRO (Qnil);
/* Apply :filter */
RETURN_UNGCPRO (Qnil);
/* Apply :filter */
- if (!NILP (gui_item.filter))
- desc = call1 (gui_item.filter, desc);
+ if (!NILP (pgui_item->filter))
+ desc = call1 (pgui_item->filter, desc);
/* Find the next menu on the path inside this one */
EXTERNAL_LIST_LOOP (submenu_desc, desc)
/* Find the next menu on the path inside this one */
EXTERNAL_LIST_LOOP (submenu_desc, desc)
@@
-191,7
+193,7
@@
See also 'find-menu-item'.
descend:
/* Prepare for the next iteration */
descend:
/* Prepare for the next iteration */
- gui_item_init (&gui_item);
+ gui_item_init (gui_item);
}
/* We have successfully descended down the end of the path */
}
/* We have successfully descended down the end of the path */
@@
-501,6
+503,13
@@
The possible keywords are this:
Basically, the filter function should have no
side-effects.
Basically, the filter function should have no
side-effects.
+ :key-sequence keys Used in FSF Emacs as an hint to an equivalent keybinding.
+ Ignored by XEnacs for easymenu.el compatability.
+
+ :label <form> (unimplemented!) Like :suffix, but replaces label
+ completely.
+ (might be added in 21.2).
+
For example:
("File"
For example:
("File"