diff src/window.c @ 3803:c267c2431d92

Don't let the 'B' interactive spec default to buffers viewed in any visible frame. * buffer.c (Fother_buffer): Pass Qt as the second argument to Fget_buffer_window. * window.c (window_loop): In GET_BUFFER_WINDOW case, ignore non-visible frames. (Fget_buffer_window): Change doc string to mention that passing Qt for the FRAME argument returns windows on visible frames only. (Qvisible): Removed.

--- a/src/window.c	Thu Jun 17 05:05:53 1993 +0000
+++ b/src/window.c	Thu Jun 17 05:06:36 1993 +0000
@@ -30,7 +30,6 @@
 #include "keyboard.h"
 
 Lisp_Object Qwindowp, Qwindow_live_p;
-Lisp_Object Qvisible;
 
 Lisp_Object Fnext_window (), Fdelete_window (), Fselect_window ();
 Lisp_Object Fset_window_buffer (), Fsplit_window (), Frecenter ();
@@ -1059,7 +1058,6 @@
 /* Look at all windows, performing an operation specified by TYPE
    with argument OBJ.
    If FRAMES is Qt, look at all frames;
-                Qvisible, look at visible frames (GET_BUFFER_WINDOW only);
                 Qnil, look at just the selected frame;
 	        a frame, just look at windows on that frame.
    If MINI is non-zero, perform the operation on minibuffer windows too.
@@ -1147,10 +1145,9 @@
 	switch (type)
 	  {
 	  case GET_BUFFER_WINDOW:
-	    /* Perhaps ignore invisible and iconified frames.  */
-	    if (EQ (frames, Qvisible)
-		&& (! FRAME_VISIBLE_P (w_frame)
-		    || FRAME_ICONIFIED_P (w_frame)))
+	    /* Ignore invisible and iconified frames.  */
+	    if (! FRAME_VISIBLE_P (w_frame)
+		|| FRAME_ICONIFIED_P (w_frame))
 	      break;
 	    if (XBUFFER (XWINDOW (w)->buffer) == XBUFFER (obj))
 	      return w;
@@ -1276,8 +1273,8 @@
 
 DEFUN ("get-buffer-window", Fget_buffer_window, Sget_buffer_window, 1, 2, 0,
   "Return a window currently displaying BUFFER, or nil if none.\n\
-If optional argument FRAME is t, search all frames.\n\
-If FRAME is `visible', search all visible frames.\n\
+If optional argument FRAME is t, search all visible frames.\n\
+If FRAME is nil, search only the selected frame.\n\
 If FRAME is a frame, search only that frame.\n")
   (buffer, frame)
     Lisp_Object buffer, frame;
@@ -2901,9 +2898,6 @@
   Qwindow_live_p = intern ("window-live-p");
   staticpro (&Qwindow_live_p);
 
-  Qvisible = intern ("Qvisible");
-  staticpro (&Qvisible);
-
 #ifndef MULTI_FRAME
   /* Make sure all windows get marked */
   staticpro (&minibuf_window);