mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

* keymap.h (map_keymap_canonical): Declare.

Browse Source 
* xmenu.c (single_keymap_panes): Use it.
This commit is contained in:
Stefan Monnier 2008-04-11 15:35:41 +00:00
parent d87be1dfc8
commit 492d9fd6bc
3 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -1,3 +1,8 @@
2008-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
* keymap.h (map_keymap_canonical): Declare.
* xmenu.c (single_keymap_panes): Use it.
2008-04-11 Glenn Morris <rgm@gnu.org>
* eval.c (Fdefvaralias): If the alias is bound and the target is not,

3
src/keymap.h
View File

@ -50,6 +50,9 @@ extern void keys_of_keymap P_ ((void));
typedef void (*map_keymap_function_t)
P_ ((Lisp_Object key, Lisp_Object val, Lisp_Object args, void* data));
extern void map_keymap P_ ((Lisp_Object map, map_keymap_function_t fun, Lisp_Object largs, void* cargs, int autoload));
extern void map_keymap_canonical (Lisp_Object map,
map_keymap_function_t fun,
Lisp_Object args, void *data);
#endif

2
src/xmenu.c
View File

@ -510,7 +510,7 @@ single_keymap_panes (keymap, pane_name, prefix, notreal, maxdepth)
#endif
GCPRO1 (skp.pending_maps);
map_keymap (keymap, single_menu_item, Qnil, &skp, 1);
map_keymap_canonical (keymap, single_menu_item, Qnil, &skp);
UNGCPRO;
/* Process now any submenus which want to be panes at this level. */