From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 9 Jan 1998 22:12:10 +0000 (+0000)
Subject: (dabbrev-ignored-buffer-names): New variable.
X-Git-Tag: emacs-20.3~2470
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7bd9ba7033a0b5023edc96ce089160a4cf67d109;p=emacs.git

(dabbrev-ignored-buffer-names): New variable.
(dabbrev--find-expansion): Ignore those buffers
unless they get specifically preferred.
---

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index ab134ce3aee..d9cf9e762dd 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -88,7 +88,7 @@
 ;;  [tromey]	Tom Tromey <tromey@busco.lanl.gov>
 ;;  [Rolf]	Rolf Schreiber <rolf@mathematik.uni-stuttgart.de>
 ;;  [Petri]	Petri Raitio <per@tekla.fi>
-;;  [ejb]	Jay Berkenbilt <ejb@ERA.COM>
+;;  [ejb]	Jay Berkenbilt <ejb@ql.org>
 ;;  [hawley]	Bob Hawley <rth1@quartet.mt.att.com>
 ;;  ... and to all the people who have participated in the beta tests.
 
@@ -192,10 +192,15 @@ Dabbrev always searches the current buffer first.  Then, if
 designated by `dabbrev-select-buffers-function'.
 
 Then, if `dabbrev-check-all-buffers' is non-nil, dabbrev searches
-all the other buffers."
+all the other buffers, except those named in `dabbrev-ignored-buffer-names'."
   :type 'boolean
   :group 'dabbrev)
 
+(defcustom dabbrev-ignored-buffer-names '("*Messages")
+  "*List of buffer names that dabbrev should not check."
+  :type '(repeat (string :tag "Buffer name"))
+  :group 'dabbrev)
+
 (defcustom dabbrev-check-other-buffers t
   "*Should \\[dabbrev-expand] look in other buffers?\
 
@@ -754,7 +759,9 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
 			(nreverse
 			 (dabbrev-filter-elements
 			  buffer (buffer-list)
-			  (not (memq buffer dabbrev--friend-buffer-list))))
+			  (and (not (member (buffer-name buffer)
+					    dabbrev-ignored-buffer-names))
+			       (not (memq buffer dabbrev--friend-buffer-list)))))
 			dabbrev--friend-buffer-list
 			(append dabbrev--friend-buffer-list
 				non-friend-buffer-list)))))