diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-01-09 22:12:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-01-09 22:12:10 +0000 |
| commit | 7bd9ba7033a0b5023edc96ce089160a4cf67d109 (patch) | |
| tree | cf3ca26fa38c57d3342ed71916c614bb0406e269 /lisp/dabbrev.el | |
| parent | 0a0a3dee18c253038f0ad2b77b65c6a7d3470383 (diff) | |
| download | emacs-7bd9ba7033a0b5023edc96ce089160a4cf67d109.tar.gz | |
(dabbrev-ignored-buffer-names): New variable.
(dabbrev--find-expansion): Ignore those buffers
unless they get specifically preferred.
Diffstat (limited to 'lisp/dabbrev.el')
| -rw-r--r-- | lisp/dabbrev.el | 13 |
1 files changed, 10 insertions, 3 deletions
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))))) |