diff options
| author | Karl Heuer | 1995-06-16 05:36:08 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-06-16 05:36:08 +0000 |
| commit | d46fb96ae4daab90cad40919340ab424fdde4c99 (patch) | |
| tree | b59a7e29ff36502253a095797e6298af2acf72c8 /src | |
| parent | e784236dea01e06e6581a4e03db90fdeb253b77d (diff) | |
| download | emacs-d46fb96ae4daab90cad40919340ab424fdde4c99.tar.gz emacs-d46fb96ae4daab90cad40919340ab424fdde4c99.zip | |
(Qoverriding_terminal_local_map): New variable.
(syms_of_xdisp): staticpro it.
(update_menu_bar): If we bind overriding-local-map, also bind
overriding-terminal-local-map.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xdisp.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/xdisp.c b/src/xdisp.c index 9f1353d2025..60a68c4943a 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -48,7 +48,7 @@ extern Lisp_Object Qface; | |||
| 48 | extern Lisp_Object Voverriding_local_map; | 48 | extern Lisp_Object Voverriding_local_map; |
| 49 | extern Lisp_Object Voverriding_local_map_menu_flag; | 49 | extern Lisp_Object Voverriding_local_map_menu_flag; |
| 50 | 50 | ||
| 51 | Lisp_Object Qoverriding_local_map; | 51 | Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map; |
| 52 | 52 | ||
| 53 | /* Nonzero means print newline to stdout before next minibuffer message. */ | 53 | /* Nonzero means print newline to stdout before next minibuffer message. */ |
| 54 | 54 | ||
| @@ -1268,7 +1268,10 @@ update_menu_bar (f, save_match_data) | |||
| 1268 | if (save_match_data) | 1268 | if (save_match_data) |
| 1269 | record_unwind_protect (Fstore_match_data, Fmatch_data ()); | 1269 | record_unwind_protect (Fstore_match_data, Fmatch_data ()); |
| 1270 | if (NILP (Voverriding_local_map_menu_flag)) | 1270 | if (NILP (Voverriding_local_map_menu_flag)) |
| 1271 | specbind (Qoverriding_local_map, Qnil); | 1271 | { |
| 1272 | specbind (Qoverriding_terminal_local_map, Qnil); | ||
| 1273 | specbind (Qoverriding_local_map, Qnil); | ||
| 1274 | } | ||
| 1272 | 1275 | ||
| 1273 | /* Run the Lucid hook. */ | 1276 | /* Run the Lucid hook. */ |
| 1274 | call1 (Vrun_hooks, Qactivate_menubar_hook); | 1277 | call1 (Vrun_hooks, Qactivate_menubar_hook); |
| @@ -4057,6 +4060,9 @@ syms_of_xdisp () | |||
| 4057 | staticpro (&Qmenu_bar_update_hook); | 4060 | staticpro (&Qmenu_bar_update_hook); |
| 4058 | Qmenu_bar_update_hook = intern ("menu-bar-update-hook"); | 4061 | Qmenu_bar_update_hook = intern ("menu-bar-update-hook"); |
| 4059 | 4062 | ||
| 4063 | staticpro (&Qoverriding_terminal_local_map); | ||
| 4064 | Qoverriding_local_map = intern ("overriding-terminal-local-map"); | ||
| 4065 | |||
| 4060 | staticpro (&Qoverriding_local_map); | 4066 | staticpro (&Qoverriding_local_map); |
| 4061 | Qoverriding_local_map = intern ("overriding-local-map"); | 4067 | Qoverriding_local_map = intern ("overriding-local-map"); |
| 4062 | 4068 | ||