# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1223540688 0
# Node ID 6a4d13121cb1ba2884654a33177ee7fa7ed40d52
# Parent  a3c29cf2d09a80f65268d0c9387a6ebc40e044d1
(Fraise_frame): On text-only terminals select frame in
order to make it visible.  (Bug#1061)

diff -r a3c29cf2d09a -r 6a4d13121cb1 src/frame.c
--- a/src/frame.c	Thu Oct 09 08:12:41 2008 +0000
+++ b/src/frame.c	Thu Oct 09 08:24:48 2008 +0000
@@ -2004,7 +2004,7 @@
 If FRAME is invisible or iconified, make it visible.
 If you don't specify a frame, the selected frame is used.
 If Emacs is displaying on an ordinary terminal or some other device which
-doesn't support multiple overlapping frames, this function does nothing.  */)
+doesn't support multiple overlapping frames, this function selects FRAME.  */)
      (frame)
      Lisp_Object frame;
 {
@@ -2016,8 +2016,12 @@
 
   f = XFRAME (frame);
 
-  /* Do like the documentation says. */
-  Fmake_frame_visible (frame);
+  if (FRAME_TERMCAP_P (f))
+    /* On a text-only terminal select FRAME.  */
+    Fselect_frame (frame);
+  else
+    /* Do like the documentation says. */
+    Fmake_frame_visible (frame);
 
   if (FRAME_TERMINAL (f)->frame_raise_lower_hook)
     (*FRAME_TERMINAL (f)->frame_raise_lower_hook) (f, 1);
@@ -3413,7 +3417,7 @@
       && !CONSP (new_value))
     {
       char *p0, *p1;
-	
+
       CHECK_STRING (new_value);
       p0 = p1 = SDATA (new_value);
       new_value = Qnil;