Mercurial > emacs
comparison src/keyboard.c @ 12142:0131a61184ab
(read_key_sequence): Don't run activate-menubar-hook
or call recompute-lucid-menubar.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 09 Jun 1995 00:52:18 +0000 |
parents | 14520fa2d792 |
children | 12720a817d83 |
comparison
equal
deleted
inserted
replaced
12141:9265a67ccf1a | 12142:0131a61184ab |
---|---|
5405 insert the dummy prefix event `menu-bar'. */ | 5405 insert the dummy prefix event `menu-bar'. */ |
5406 if (EQ (posn, Qmenu_bar)) | 5406 if (EQ (posn, Qmenu_bar)) |
5407 { | 5407 { |
5408 if (t + 1 >= bufsize) | 5408 if (t + 1 >= bufsize) |
5409 error ("key sequence too long"); | 5409 error ("key sequence too long"); |
5410 /* Run the Lucid hook. */ | |
5411 if (!NILP (Vrun_hooks)) | |
5412 call1 (Vrun_hooks, Qactivate_menubar_hook); | |
5413 /* If it has changed current-menubar from previous value, | |
5414 really recompute the menubar from the value. */ | |
5415 if (! NILP (Vlucid_menu_bar_dirty_flag)) | |
5416 call0 (Qrecompute_lucid_menubar); | |
5417 keybuf[t] = posn; | 5410 keybuf[t] = posn; |
5418 keybuf[t+1] = key; | 5411 keybuf[t+1] = key; |
5419 | 5412 |
5420 /* Zap the position in key, so we know that we've | 5413 /* Zap the position in key, so we know that we've |
5421 expanded it, and don't try to do so again. */ | 5414 expanded it, and don't try to do so again. */ |