# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 822957971 0
# Node ID 4f2ec5d39f0013badb4767ce24b1cbe90d9b09c1
# Parent  29464b3d6188bebe8d397f8d0f8a15a6fce9f9f5
(Fset_minibuffer_window): New function.
(keys_of_minibuf): defsubr it.

diff -r 29464b3d6188 -r 4f2ec5d39f00 src/minibuf.c
--- a/src/minibuf.c	Mon Jan 29 23:20:08 1996 +0000
+++ b/src/minibuf.c	Mon Jan 29 23:26:11 1996 +0000
@@ -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 @@
 #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 @@
     "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);