changeset 30006:f39010aa1be6

*** empty log message ***

--- a/etc/NEWS	Mon Jul 03 09:17:25 2000 +0000
+++ b/etc/NEWS	Mon Jul 03 09:18:48 2000 +0000
@@ -1238,6 +1238,38 @@
 * Lisp changes made after edition 2.6 of the Emacs Lisp Manual,
 (Display-related features are described in a page of their own below.)
 
+** There's a new function `some-window' defined as follows
+
+- Function: some-window PREDICATE &optional MINIBUF ALL-FRAMES DEFAULT
+
+Return a window satisfying PREDICATE.
+
+This function cycles through all visible windows using `walk-windows',
+calling PREDICATE on each one.  PREDICATE is called with a window as
+argument.  The first window for which PREDICATE returns a non-nil
+value is returned.  If no window satisfies PREDICATE, DEFAULT is
+returned.
+
+Optional second arg MINIBUF t means count the minibuffer window even
+if not active.  MINIBUF nil or omitted means count the minibuffer iff
+it is active.  MINIBUF neither t nor nil means not to count the
+minibuffer even if it is active.
+
+Several frames may share a single minibuffer; if the minibuffer
+counts, all windows on all frames that share that minibuffer count
+too.  Therefore, if you are using a separate minibuffer frame
+and the minibuffer is active and MINIBUF says it counts,
+`walk-windows' includes the windows in the frame from which you
+entered the minibuffer, as well as the minibuffer window.
+
+ALL-FRAMES is the optional third argument.
+ALL-FRAMES nil or omitted means cycle within the frames as specified above.
+ALL-FRAMES = `visible' means include windows on all visible frames.
+ALL-FRAMES = 0 means include windows on all visible and iconified frames.
+ALL-FRAMES = t means include windows on all frames including invisible frames.
+If ALL-FRAMES is a frame, it means include windows on that frame.
+Anything else means restrict to the selected frame.
+
 ** The function `single-key-description' now encloses function key
 and event names in ange brackets.
 

--- a/lisp/ChangeLog	Mon Jul 03 09:17:25 2000 +0000
+++ b/lisp/ChangeLog	Mon Jul 03 09:18:48 2000 +0000
@@ -1,8 +1,41 @@
-2000-06-30  Gerd Moellmann  <[e-mail]>
[phone]  Gerd Moellmann  <[e-mail]>
+
+	* textmodes/refer.el (refer-find-entry-internal): Use some-window
+	instead of cycling through windows with next-window.
+
+	* term/sup-mouse.el (sup-pos-to-window): Use some-window instead
+	of cycling through windows with next-window.
+
+	* term/bg-mouse.el (bg-window-from-x-y): Use some-window instead
+	of cycling through windows with next-window.
+
+	* emacs-lisp/edebug.el (edebug-window-live-p, edebug-window-list)
+	(edebug-get-displayed-buffer-points): Use walk-windows/some-window
+	instead of cycling through windows with next-window.
+
+	* calendar/appt.el (appt-select-lowest-window): Use walk-windows
+	instead of cycling through windows with next-window.
+
+	* dabbrev.el (dabbrev--find-expansion): Use walk-windows instead
+	of cycling through windows with next-window.
+
+	* terminal.el (te-process-output): Use walk-windows instead of
+	cycling through windows with next-window.
+
+	* server.el (server-switch-buffer): Use some-window instead of
+	cycling through windows with next-window.
+
+	* window.el (some-window): New function.
+	(walk-windows): Remove reference to walk-windows-start.
 
 	* hilit19.el (hilit-lookup-face-create): Don't set face colors
 	to nil.
 
[phone]  Richard Stallman  <[e-mail]>
+
+	* window.el (walk-windows): Guarantee termination by keeping a list
+	of all the windows already handled.
+
 2000-06-28  Eli Zaretskii  <[e-mail]>
 
 	* mouse.el (mouse-show-mark, mouse-save-then-kill): Don't use