From 67c9a1d26efc40aca38419e38522d9690c6ab822 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 3 Jul 2000 09:18:48 +0000 Subject: [PATCH] *** empty log message *** --- etc/NEWS | 32 ++++++++++++++++++++++++++++++++ lisp/ChangeLog | 35 ++++++++++++++++++++++++++++++++++- 2 files changed, 66 insertions(+), 1 deletion(-) diff --git a/etc/NEWS b/etc/NEWS index 2f77243e22c..1a5e112af5a 100644 --- 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 333378be6b0..332bb16dda5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,41 @@ -2000-06-30 Gerd Moellmann +2000-07-03 Gerd Moellmann + + * 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 + + * window.el (walk-windows): Guarantee termination by keeping a list + of all the windows already handled. + 2000-06-28 Eli Zaretskii * mouse.el (mouse-show-mark, mouse-save-then-kill): Don't use -- 2.39.2