mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(update_menu_bar): Run activate-menubar-hook

Browse source 
and call recompute-lucid-menubar.
This commit is contained in:
Karl Heuer 1995-06-09 00:51:32 +00:00
parent 546fe08580
commit 34acc8e6e5
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/xdisp.c
View file

@ -1262,6 +1262,12 @@ update_menu_bar (f, save_match_data)
if (save_match_data)
record_unwind_protect (Fstore_match_data, Fmatch_data ());
/* Run the Lucid hook. */
call1 (Vrun_hooks, Qactivate_menubar_hook);
/* If it has changed current-menubar from previous value,
really recompute the menubar from the value. */
if (! NILP (Vlucid_menu_bar_dirty_flag))
call0 (Qrecompute_lucid_menubar);
call1 (Vrun_hooks, Qmenu_bar_update_hook);
current_buffer = XBUFFER (w->buffer);
FRAME_MENU_BAR_ITEMS (f) = menu_bar_items (FRAME_MENU_BAR_ITEMS (f));