From 7c0d9b8972c204c1601944c3042a9646dacd6de5 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 3 Jul 2000 09:12:39 +0000 Subject: (appt-select-lowest-window): Use walk-windows instead of cycling through windows with next-window. --- lisp/calendar/appt.el | 26 ++++++++------------------ 1 file changed, 8 insertions(+), 18 deletions(-) (limited to 'lisp/calendar/appt.el') diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 04c8a3dd607..623d94cd96a 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -422,24 +422,14 @@ Usually just deletes the appointment buffer." (defun appt-select-lowest-window () "Select the lowest window on the frame." - (let* ((lowest-window (selected-window)) - (bottom-edge (nth 3 (window-edges))) - (last-window (previous-window)) - (window-search t)) - (while window-search - (let* ((this-window (next-window)) - (next-bottom-edge (nth 3 (window-edges this-window)))) - (if (< bottom-edge next-bottom-edge) - (progn - (setq bottom-edge next-bottom-edge) - (setq lowest-window this-window))) - - (select-window this-window) - (if (eq last-window this-window) - (progn - (select-window lowest-window) - (setq window-search nil))))))) - + (let ((lowest-window (selected-window)) + (bottom-edge (nth 3 (window-edges)))) + (walk-windows (lambda (w) + (let ((next-bottom-edge (nth 3 (window-edges w)))) + (when (< bottom-edge next-bottom-edge) + (setq bottom-edge next-bottom-edge + lowest-window w))))) + (select-window lowest-window))) ;;;###autoload (defun appt-add (new-appt-time new-appt-msg) -- cgit v1.2.1