From 68313ed8befeec78901828ba690858f7db2a15b4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 29 Jan 1996 23:26:11 +0000 Subject: [PATCH] (Fset_minibuffer_window): New function. (keys_of_minibuf): defsubr it. --- src/minibuf.c | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/src/minibuf.c b/src/minibuf.c index 94d0b845d1b..bab116f4ba7 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1,5 +1,5 @@ /* Minibuffer input and completion. - Copyright (C) 1985, 1986, 1993, 1994, 1995 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 93, 94, 95, 1996 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -127,6 +127,24 @@ choose_minibuf_frame () #endif } } + +DEFUN ("set-minibuffer-window", Fset_minibuffer_window, + Sset_minibuffer_window, 1, 1, 0, + "Specify which minibuffer window to use for the minibuffer.\n\ +This effects where the minibuffer is displayed if you put text in it\n\ +without invoking the usual minibuffer commands.") + (window) + Lisp_Object window; +{ + CHECK_WINDOW (window, 1); + if (! MINI_WINDOW_P (XWINDOW (window))) + error ("Window is not a minibuffer window"); + + minibuf_window = window; + + return window; +} + /* Actual minibuffer invocation. */ @@ -1817,6 +1835,7 @@ is added with\n\ "List of regexps that should restrict possible completions."); Vcompletion_regexp_list = Qnil; + defsubr (&Sset_minibuffer_window); defsubr (&Sread_from_minibuffer); defsubr (&Seval_minibuffer); defsubr (&Sread_minibuffer); -- 2.39.2