aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKarl Heuer1995-06-16 05:36:08 +0000
committerKarl Heuer1995-06-16 05:36:08 +0000
commitd46fb96ae4daab90cad40919340ab424fdde4c99 (patch)
treeb59a7e29ff36502253a095797e6298af2acf72c8 /src
parente784236dea01e06e6581a4e03db90fdeb253b77d (diff)
downloademacs-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.c10
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;
48extern Lisp_Object Voverriding_local_map; 48extern Lisp_Object Voverriding_local_map;
49extern Lisp_Object Voverriding_local_map_menu_flag; 49extern Lisp_Object Voverriding_local_map_menu_flag;
50 50
51Lisp_Object Qoverriding_local_map; 51Lisp_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