# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764189962 0
# Node ID 6ca89592234040d51775213041e1644723522bbc
# Parent  fe511f97c2deb6365863372790aad9807f7e0423
(one-window-p): New argument all-frames.

diff -r fe511f97c2de -r 6ca895922340 lisp/subr.el
--- a/lisp/subr.el	Sun Mar 20 18:24:30 1994 +0000
+++ b/lisp/subr.el	Sun Mar 20 18:59:22 1994 +0000
@@ -53,15 +53,21 @@
 
 ;;;; Window tree functions.
 
-(defun one-window-p (&optional nomini)
+(defun one-window-p (&optional nomini all-frames)
   "Returns non-nil if there is only one window.
 Optional arg NOMINI non-nil means don't count the minibuffer
-even if it is active."
+even if it is active.
+
+The optional arg ALL-FRAMES t means count windows on all frames.
+If it is `visible', count windows on all visible frames.
+ALL-FRAMES nil or omitted means count only the selected frame, 
+plus the minibuffer it uses (which may be on another frame).
+If ALL-FRAMES is neither nil nor t, count only the selected frame."
   (let ((base-window (selected-window)))
     (if (and nomini (eq base-window (minibuffer-window)))
 	(setq base-window (next-window base-window)))
     (eq base-window
-	(next-window base-window (if nomini 'arg)))))
+	(next-window base-window (if nomini 'arg) all-frames))))
 
 (defun walk-windows (proc &optional minibuf all-frames)
   "Cycle through all visible windows, calling PROC for each one.