From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 20 Oct 1995 20:48:00 +0000 (+0000)
Subject: (dabbrev--find-expansion): Move buffers that are visible on the screen
X-Git-Tag: emacs-19.34~2603
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8f7e85aba112ee75077152e566545058cf4a755;p=emacs.git

(dabbrev--find-expansion): Move buffers that are visible on the screen
to the front of the list to be searched.
---

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 8dbe0629239..234f83f24b3 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -711,6 +711,15 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
 			dabbrev--friend-buffer-list
 			(append dabbrev--friend-buffer-list
 				non-friend-buffer-list)))))
+	;; Move buffers that are visible on the screen
+	;; to the front of the list.
+	(if 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 through the buffers
 	(while (and (not expansion) dabbrev--friend-buffer-list)
 	  (setq dabbrev--last-buffer