*** empty log message ***

diff --git a/etc/NEWS b/etc/NEWS
index 2f77243e22ce60112239448364e081f0e8d59012..1a5e112af5ade71ac64f80c65744f14edbe82b99 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1238,6 +1238,38 @@ functionality with aliases for the mldrag functions.
 * 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.
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 333378be6b0169f4b87c457d3589d63f6c12c955..332bb16dda579c62a680137df32489497670af04 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,41 @@
-2000-06-30  Gerd Moellmann  <gerd@gnu.org>
+2000-07-03  Gerd Moellmann  <gerd@gnu.org>
+
+       * 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.
 
+2000-07-03  Richard Stallman  <rms@caffeine.ai.mit.edu>
+
+       * window.el (walk-windows): Guarantee termination by keeping a list
+       of all the windows already handled.
+
 2000-06-28  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * mouse.el (mouse-show-mark, mouse-save-then-kill): Don't use