]> code.delx.au - gnu-emacs/commitdiff
(read_minibuf): Save Voverriding_local_map.
authorRichard M. Stallman <rms@gnu.org>
Tue, 14 Mar 1995 21:15:08 +0000 (21:15 +0000)
committerRichard M. Stallman <rms@gnu.org>
Tue, 14 Mar 1995 21:15:08 +0000 (21:15 +0000)
(read_minibuf_unwind): Restore Voverriding_local_map.

src/minibuf.c

index b2230f672ef68964560b8e12687fbc3a9f55d022..f473ad86a3f295f409a6d7f4a1a0d5c5da53b4c4 100644 (file)
@@ -98,6 +98,8 @@ Lisp_Object Quser_variable_p;
 /* Non-nil means it is the window for C-M-v to scroll
    when the minibuffer is selected.  */
 extern Lisp_Object Vminibuf_scroll_window;
+
+extern Lisp_Object Voverriding_local_map;
 \f
 /* Actual minibuffer invocation. */
 
@@ -160,7 +162,8 @@ read_minibuf (map, initial, prompt, backup_n, expflag, histvar, histpos)
                           Fcons (Vcurrent_prefix_arg,
                                  Fcons (Vminibuffer_history_position,
                                         Fcons (Vminibuffer_history_variable,
-                                               minibuf_save_list))))));
+                                               Fcons (Voverriding_local_map,
+                                                      minibuf_save_list)))))));
   minibuf_prompt_width = 0;    /* xdisp.c puts in the right value.  */
   minibuf_prompt = Fcopy_sequence (prompt);
   Vminibuffer_history_position = histpos;
@@ -403,6 +406,8 @@ read_minibuf_unwind (data)
   minibuf_save_list = Fcdr (minibuf_save_list);
   Vminibuffer_history_variable = Fcar (minibuf_save_list);
   minibuf_save_list = Fcdr (minibuf_save_list);
+  Voverriding_local_map = Fcar (minibuf_save_list);
+  minibuf_save_list = Fcdr (minibuf_save_list);
 }
 \f