Mercurial > emacs
diff lisp/dabbrev.el @ 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 | 7c590ee6ed13 |
| children | 183817081a96 |
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)))))