Mercurial > emacs
changeset 13397:aac6ac5b87fd
(choose_minibuf_frame): Moved here from frame.c.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 04 Nov 1995 00:21:08 +0000 |
| parents | b44cc5a62941 |
| children | 2b18ef667bde |
| files | src/minibuf.c |
| diffstat | 1 files changed, 21 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/minibuf.c Sat Nov 04 00:19:00 1995 +0000 +++ b/src/minibuf.c Sat Nov 04 00:21:08 1995 +0000 @@ -102,6 +102,27 @@ extern Lisp_Object Voverriding_local_map; +/* Put minibuf on currently selected frame's minibuffer. + We do this whenever the user starts a new minibuffer + or when a minibuffer exits. */ + +void +choose_minibuf_frame () +{ + if (selected_frame != 0 + && !EQ (minibuf_window, selected_frame->minibuffer_window)) + { + /* I don't think that any frames may validly have a null minibuffer + window anymore. */ + if (NILP (selected_frame->minibuffer_window)) + abort (); + + Fset_window_buffer (selected_frame->minibuffer_window, + XWINDOW (minibuf_window)->buffer); + minibuf_window = selected_frame->minibuffer_window; + } +} + /* Actual minibuffer invocation. */ void read_minibuf_unwind ();