# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756609650 0
# Node ID 63932e111cc5b6c38f1190994a382cb58e542d4e
# Parent  378540cf056fad320c4ff51298b9ea63cd1df16d
(minibuffer_auto_raise): Really define it.

(minibuffer_auto_raise): New variable.
(syms_of_minibuf): Set up Lisp var.
(read_minibuf): Maybe raise the minibuffer's frame.

diff -r 378540cf056f -r 63932e111cc5 src/minibuf.c
--- a/src/minibuf.c	Thu Dec 23 01:19:25 1993 +0000
+++ b/src/minibuf.c	Thu Dec 23 01:20:50 1993 +0000
@@ -85,13 +85,17 @@
 
 int completion_ignore_case;
 
+/* Nonzero means raise the minibuffer frame when the minibuffer
+   is entered.  */
+
+int minibuffer_auto_raise;
+
 /* If last completion attempt reported "Complete but not unique"
    then this is the string completed then; otherwise this is nil.  */
 
 static Lisp_Object last_exact_completion;
 
 Lisp_Object Quser_variable_p;
-
 
 /* Actual minibuffer invocation. */
 
@@ -168,6 +172,8 @@
   if (XFRAME (mini_frame) != selected_frame)
     record_unwind_protect (Fset_window_configuration,
 			   Fcurrent_window_configuration (mini_frame));
+  if (minibuffer_auto_raise)
+    Fraise_frame (mini_frame);
 #endif
 
   val = current_buffer->directory;
@@ -1509,6 +1515,10 @@
     "Current position of redoing in the history list.");
   Vminibuffer_history_position = Qnil;
 
+  DEFVAR_BOOL ("minibuffer-auto-raise", &minibuffer_auto_raise,
+    "*Non-nil means entering the minibuffer raises the minibuffer's frame.");
+  minibuffer_auto_raise = 0;
+
   defsubr (&Sread_from_minibuffer);
   defsubr (&Seval_minibuffer);
   defsubr (&Sread_minibuffer);