From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 3 Jul 2000 09:13:06 +0000 (+0000)
Subject: (dabbrev--find-expansion): Use walk-windows instead
X-Git-Tag: emacs-pretest-21.0.90~3015
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9cc39a188d4259f251bb654352bd1750b2d18f8;p=emacs.git

(dabbrev--find-expansion): Use walk-windows instead
of cycling through windows with next-window.
---

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