# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 988385207 0
# Node ID cf707ac71b73201fe60d1f0b5aba6f6e97f54a6e
# Parent  bd288d2b450e09e14af3bcbe7a27a5e8315dbc3e
(dabbrev--ignore-buffer-p): New function.
(dabbrev--find-expansion): Use it.
(dabbrev--select-buffers): Don't select ignored buffers.

diff -r bd288d2b450e -r cf707ac71b73 lisp/dabbrev.el
--- a/lisp/dabbrev.el	Fri Apr 27 13:36:06 2001 +0000
+++ b/lisp/dabbrev.el	Fri Apr 27 15:26:47 2001 +0000
@@ -667,6 +667,7 @@
       (dabbrev-filter-elements
        buffer (buffer-list)
        (and (not (eq orig-buffer buffer))
+	    (not (dabbrev--ignore-buffer-p buffer))
 	    (boundp 'dabbrev-friend-buffer-function)
 	    (funcall dabbrev-friend-buffer-function buffer))))))
 
@@ -706,6 +707,17 @@
 (defun dabbrev--scanning-message ()
   (message "Scanning `%s'" (buffer-name (current-buffer))))
 
+(defun dabbrev--ignore-buffer-p (buffer)
+  "Return non-nil if BUFFER should be ignored by dabbrev."
+  (let ((bn (buffer-name buffer)))
+    (or (member bn dabbrev-ignored-buffer-names)
+	(let ((tail dabbrev-ignored-buffer-regexps)
+	      (match nil))
+	  (while (and tail (not match))
+	    (setq match (string-match (car tail) bn)
+		  tail (cdr tail)))
+	  match))))
+
 (defun dabbrev--find-expansion (abbrev direction ignore-case)
   "Find one occurrence of ABBREV, and return the expansion.
 DIRECTION > 0 means look that many times backwards.
@@ -776,16 +788,8 @@
 		  (setq non-friend-buffer-list
 			(dabbrev-filter-elements
 			 buffer (buffer-list)
-			 (let ((bn (buffer-name buffer)))
-			   (and (not (member bn dabbrev-ignored-buffer-names))
-				(not (memq buffer dabbrev--friend-buffer-list))
-				(not
-				 (let ((tail dabbrev-ignored-buffer-regexps)
-				       (match nil))
-				   (while (and tail (not match))
-				     (setq match (string-match (car tail) bn)
-					   tail (cdr tail)))
-				   match)))))
+			 (and (not (memq buffer dabbrev--friend-buffer-list))
+			      (not (dabbrev--ignore-buffer-p buffer))))
 			dabbrev--friend-buffer-list
 			(append dabbrev--friend-buffer-list
 				non-friend-buffer-list)))))