1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00

(read_minibuf): Save Voverriding_local_map.

(read_minibuf_unwind): Restore Voverriding_local_map.
This commit is contained in:
Richard M. Stallman 1995-03-14 21:15:08 +00:00
parent c63dc4a2d8
commit 30e13e5624

View File

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