mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

(dabbrev-ignored-buffer-names): New variable.

Browse Source 
(dabbrev--find-expansion): Ignore those buffers
unless they get specifically preferred.
This commit is contained in:
Richard M. Stallman 1998-01-09 22:12:10 +00:00
parent 0a0a3dee18
commit 7bd9ba7033
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/dabbrev.el
View File

@ -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)))))