From f9cc39a188d4259f251bb654352bd1750b2d18f8 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 3 Jul 2000 09:13:06 +0000 Subject: [PATCH] (dabbrev--find-expansion): Use walk-windows instead of cycling through windows with next-window. --- lisp/dabbrev.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index b14a97bb64b..542f657fceb 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -788,12 +788,12 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]." ;; Move buffers that are visible on the screen ;; to the front of the list. Remove the current buffer. (when dabbrev--friend-buffer-list - (let ((w (next-window (selected-window)))) - (while (not (eq w (selected-window))) - (setq dabbrev--friend-buffer-list - (cons (window-buffer w) - (delq (window-buffer w) dabbrev--friend-buffer-list))) - (setq w (next-window w)))) + (walk-windows (lambda (w) + (unless (eq w (selected-window)) + (setq dabbrev--friend-buffer-list + (cons (window-buffer w) + (delq (window-buffer w) + dabbrev--friend-buffer-list)))))) (setq dabbrev--friend-buffer-list (delq (current-buffer) dabbrev--friend-buffer-list))) ;; Walk through the buffers -- 2.39.2