changeset 20604:cb1af13d913c

(dabbrev-ignored-buffer-names): New variable. (dabbrev--find-expansion): Ignore those buffers unless they get specifically preferred.
author Richard M. Stallman <rms@gnu.org>
date Fri, 09 Jan 1998 22:12:10 +0000
parents 24dda0afd915
children 95e051979faf
files lisp/dabbrev.el
diffstat 1 files changed, 10 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dabbrev.el	Thu Jan 08 23:35:34 1998 +0000
+++ b/lisp/dabbrev.el	Fri Jan 09 22:12:10 1998 +0000
@@ -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 @@
 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 @@
 			(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)))))