(dabbrev--ignore-buffer-p): New function.

(dabbrev--find-expansion): Use it.
(dabbrev--select-buffers): Don't select ignored buffers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f03f8c7e9a2a2425efe078b777b1b016efb840af..6905f0ec8ecd8c2d09f9ac4193fa849436f9f7dd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-04-28  Miles Bader  <miles@gnu.org>
+
+       * dabbrev.el (dabbrev--ignore-buffer-p): New function.
+       (dabbrev--find-expansion): Use it.
+       (dabbrev--select-buffers): Don't select ignored buffers.
+
 2001-04-27  Gerd Moellmann  <gerd@gnu.org>
 
        * mail/rmail.el (rmail-message-regexp-p): Don't match before

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 4187d361eb1b8bd2adaa5afe07e44b2590c9ac31..297ad5958834c57c537ae095015606d6e511b3a3 100644 (file)
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -667,6 +667,7 @@ if it is bound, returns nil.  The resulting partial list is returned."
       (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 @@ If IGNORE-CASE is non-nil, accept matches which differ in case."
 (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 @@ of the start of the occurrence."
                  (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)))))