;;; Return some frame other than the current frame,
;;; creating one if neccessary. Note that the minibuffer frame, if
;;; separate, is not considered (see next-frame).
-(defun get-frame ()
+(defun get-other-frame ()
(let ((s (if (equal (next-frame (selected-frame)) (selected-frame))
(new-frame)
(next-frame (selected-frame)))))
else if (INTERACTIVE && FRAME_MESSAGE_BUF (selected_frame))
{
#ifdef MULTI_FRAME
+ Lisp_Object minibuf_frame;
+
choose_minibuf_frame ();
- Fmake_frame_visible (WINDOW_FRAME (XWINDOW (minibuf_window)));
+ minibuf_frame = WINDOW_FRAME (XWINDOW (minibuf_window));
+ if (FRAME_VISIBLE_P (selected_frame)
+ && ! FRAME_VISIBLE_P (XFRAME (minibuf_frame)))
+ Fmake_frame_visible (WINDOW_FRAME (XWINDOW (minibuf_window)));
#endif
{
else if (INTERACTIVE && FRAME_MESSAGE_BUF (selected_frame))
{
#ifdef MULTI_FRAME
+ Lisp_Object minibuf_frame;
+
choose_minibuf_frame ();
- Fmake_frame_visible (WINDOW_FRAME (XWINDOW (minibuf_window)));
+ minibuf_frame = WINDOW_FRAME (XWINDOW (minibuf_window));
+ if (FRAME_VISIBLE_P (selected_frame)
+ && ! FRAME_VISIBLE_P (XFRAME (minibuf_frame)))
+ Fmake_frame_visible (WINDOW_FRAME (XWINDOW (minibuf_window)));
#endif
echo_area_glyphs = m;
if (FRAME_IS_X (f)
&& ! FRAME_MINIBUF_ONLY_P (f)
&& w == XWINDOW (f->selected_window)
+ && XINT (Flength (Vframe_list)) > 1
&& (NILP (Fstring_equal (XBUFFER (w->buffer)->name, f->name))))
x_set_name (f, XBUFFER (w->buffer)->name, Qnil);
#endif