aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1992-07-21 06:30:52 +0000
committerJim Blandy1992-07-21 06:30:52 +0000
commit7253d8e00936a6220a6194b467740112db1d02e3 (patch)
treebd3bc4ce7c2cc024ef889f1754729494f2c0a9b0
parent151bdc833ef6611acf656aef027513d578b44592 (diff)
downloademacs-7253d8e00936a6220a6194b467740112db1d02e3.tar.gz
emacs-7253d8e00936a6220a6194b467740112db1d02e3.zip
*** empty log message ***
-rw-r--r--lisp/frame.el2
-rw-r--r--src/xdisp.c15
2 files changed, 14 insertions, 3 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index c3e28eaaeea..f4082963006 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -141,7 +141,7 @@ These supercede the values given in default-frame-alist.")
141;;; Return some frame other than the current frame, 141;;; Return some frame other than the current frame,
142;;; creating one if neccessary. Note that the minibuffer frame, if 142;;; creating one if neccessary. Note that the minibuffer frame, if
143;;; separate, is not considered (see next-frame). 143;;; separate, is not considered (see next-frame).
144(defun get-frame () 144(defun get-other-frame ()
145 (let ((s (if (equal (next-frame (selected-frame)) (selected-frame)) 145 (let ((s (if (equal (next-frame (selected-frame)) (selected-frame))
146 (new-frame) 146 (new-frame)
147 (next-frame (selected-frame))))) 147 (next-frame (selected-frame)))))
diff --git a/src/xdisp.c b/src/xdisp.c
index cceb69584d6..b25f4011195 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -193,8 +193,13 @@ message (m, a1, a2, a3)
193 else if (INTERACTIVE && FRAME_MESSAGE_BUF (selected_frame)) 193 else if (INTERACTIVE && FRAME_MESSAGE_BUF (selected_frame))
194 { 194 {
195#ifdef MULTI_FRAME 195#ifdef MULTI_FRAME
196 Lisp_Object minibuf_frame;
197
196 choose_minibuf_frame (); 198 choose_minibuf_frame ();
197 Fmake_frame_visible (WINDOW_FRAME (XWINDOW (minibuf_window))); 199 minibuf_frame = WINDOW_FRAME (XWINDOW (minibuf_window));
200 if (FRAME_VISIBLE_P (selected_frame)
201 && ! FRAME_VISIBLE_P (XFRAME (minibuf_frame)))
202 Fmake_frame_visible (WINDOW_FRAME (XWINDOW (minibuf_window)));
198#endif 203#endif
199 204
200 { 205 {
@@ -244,8 +249,13 @@ message1 (m)
244 else if (INTERACTIVE && FRAME_MESSAGE_BUF (selected_frame)) 249 else if (INTERACTIVE && FRAME_MESSAGE_BUF (selected_frame))
245 { 250 {
246#ifdef MULTI_FRAME 251#ifdef MULTI_FRAME
252 Lisp_Object minibuf_frame;
253
247 choose_minibuf_frame (); 254 choose_minibuf_frame ();
248 Fmake_frame_visible (WINDOW_FRAME (XWINDOW (minibuf_window))); 255 minibuf_frame = WINDOW_FRAME (XWINDOW (minibuf_window));
256 if (FRAME_VISIBLE_P (selected_frame)
257 && ! FRAME_VISIBLE_P (XFRAME (minibuf_frame)))
258 Fmake_frame_visible (WINDOW_FRAME (XWINDOW (minibuf_window)));
249#endif 259#endif
250 260
251 echo_area_glyphs = m; 261 echo_area_glyphs = m;
@@ -1771,6 +1781,7 @@ display_mode_line (w)
1771 if (FRAME_IS_X (f) 1781 if (FRAME_IS_X (f)
1772 && ! FRAME_MINIBUF_ONLY_P (f) 1782 && ! FRAME_MINIBUF_ONLY_P (f)
1773 && w == XWINDOW (f->selected_window) 1783 && w == XWINDOW (f->selected_window)
1784 && XINT (Flength (Vframe_list)) > 1
1774 && (NILP (Fstring_equal (XBUFFER (w->buffer)->name, f->name)))) 1785 && (NILP (Fstring_equal (XBUFFER (w->buffer)->name, f->name))))
1775 x_set_name (f, XBUFFER (w->buffer)->name, Qnil); 1786 x_set_name (f, XBUFFER (w->buffer)->name, Qnil);
1776#endif 1787#endif