From 6a9ee000ddd93021fac5ae4f1d57adfa3ddc4f2e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 01:20:50 +0000 Subject: [PATCH] (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. --- src/minibuf.c | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/minibuf.c b/src/minibuf.c index dc13d641a57..cbf6970bdbd 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -85,13 +85,17 @@ Lisp_Object Qminibuffer_setup_hook, Vminibuffer_setup_hook; 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 @@ read_minibuf (map, initial, prompt, backup_n, expflag, histvar, histpos) 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 @@ Each minibuffer output is added with\n\ "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); -- 2.39.5