diff options
author | Richard M. Stallman <[email protected]> | 1997-07-22 03:10:25 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1997-07-22 03:10:25 +0000 |
commit | 0c94f256dc518bca9a0c8033270ac4b8f6a26b7a (patch) | |
tree | 1732320f2d75b8610c9eae2af6488d6788099b2b /src | |
parent | 4382ff37200b48e2391037a664bafe20a37566f8 (diff) |
(choose_minibuf_frame_1): New function.
(read_minibuf): Make an unwind protect to run that.
(read_minibuf_unwind): Don't call choose_minibuf_frame here.
Diffstat (limited to 'src')
-rw-r--r-- | src/minibuf.c | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index e7888c0d7b..a9ff9b84e7 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -148,6 +148,14 @@ choose_minibuf_frame () } } +Lisp_Object +choose_minibuf_frame_1 (ignore) + Lisp_Object ignore; +{ + choose_minibuf_frame (); + return Qnil; +} + DEFUN ("set-minibuffer-window", Fset_minibuffer_window, Sset_minibuffer_window, 1, 1, 0, "Specify which minibuffer window to use for the minibuffer.\n\ @@ -234,6 +242,8 @@ read_minibuf (map, initial, prompt, backup_n, expflag, choose_minibuf_frame (); + record_unwind_protect (choose_minibuf_frame_1, Qnil); + record_unwind_protect (Fset_window_configuration, Fcurrent_window_configuration (Qnil)); @@ -539,10 +549,6 @@ read_minibuf_unwind (data) unbind_to (count, Qnil); } - /* Make the minibuffer follow the selected frame - (in case we are exiting a recursive minibuffer). */ - choose_minibuf_frame (); - /* Make sure minibuffer window is erased, not ignored. */ windows_or_buffers_changed++; XSETFASTINT (XWINDOW (window)->last_modified, 0); |