(font-lock-comment-face): Change dark-background,

[bpt/emacs.git] / lisp / dabbrev.el

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index b14a97b..542f657 100644 (file)
--- 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