diff options
author | Jim Blandy <jimb@redhat.com> | 1993-06-17 05:06:36 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1993-06-17 05:06:36 +0000 |
commit | 6e4998f644fcd990a9a96774011691f0c41c0d55 (patch) | |
tree | 720105f3aa6aef2de6c7fd3d906c6dea40d9bb23 /src/window.c | |
parent | 0e9cb874bcceb7191257065bff403aec1eeed47d (diff) | |
download | emacs-6e4998f644fcd990a9a96774011691f0c41c0d55.tar.gz |
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.
Diffstat (limited to 'src/window.c')
-rw-r--r-- | src/window.c | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/src/window.c b/src/window.c index 4c182a6924d..a9ab938d2cb 100644 --- a/src/window.c +++ b/src/window.c @@ -30,7 +30,6 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #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 @@ argument ALL_FRAMES is non-nil, cycle through all frames.") /* 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 @@ window_loop (type, obj, mini, frames) 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 @@ frame, search only that frame.\n") 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 @@ syms_of_window () 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); |