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--ignore-buffer-p): New function.

Browse Source 
(dabbrev--find-expansion): Use it.
(dabbrev--select-buffers): Don't select ignored buffers.
This commit is contained in:
Miles Bader 2001-04-27 15:28:38 +00:00
parent f4976ebcea
commit a6a0642945
2 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2001-04-28 Miles Bader <miles@gnu.org>
* dabbrev.el (dabbrev--ignore-buffer-p): New function.
(dabbrev--find-expansion): Use it.
(dabbrev--select-buffers): Don't select ignored buffers.
2001-04-27 Gerd Moellmann <gerd@gnu.org>
* mail/rmail.el (rmail-message-regexp-p): Don't match before

24
lisp/dabbrev.el
View File

@ -667,6 +667,7 @@ if it is bound, returns nil. The resulting partial list is returned."
(dabbrev-filter-elements
buffer (buffer-list)
(and (not (eq orig-buffer buffer))
(not (dabbrev--ignore-buffer-p buffer))
(boundp 'dabbrev-friend-buffer-function)
(funcall dabbrev-friend-buffer-function buffer))))))
@ -706,6 +707,17 @@ If IGNORE-CASE is non-nil, accept matches which differ in case."
(defun dabbrev--scanning-message ()
(message "Scanning `%s'" (buffer-name (current-buffer))))
(defun dabbrev--ignore-buffer-p (buffer)
"Return non-nil if BUFFER should be ignored by dabbrev."
(let ((bn (buffer-name buffer)))
(or (member bn dabbrev-ignored-buffer-names)
(let ((tail dabbrev-ignored-buffer-regexps)
(match nil))
(while (and tail (not match))
(setq match (string-match (car tail) bn)
tail (cdr tail)))
match))))
(defun dabbrev--find-expansion (abbrev direction ignore-case)
"Find one occurrence of ABBREV, and return the expansion.
DIRECTION > 0 means look that many times backwards.
@ -776,16 +788,8 @@ of the start of the occurrence."
(setq non-friend-buffer-list
(dabbrev-filter-elements
buffer (buffer-list)
(let ((bn (buffer-name buffer)))
(and (not (member bn dabbrev-ignored-buffer-names))
(not (memq buffer dabbrev--friend-buffer-list))
(not
(let ((tail dabbrev-ignored-buffer-regexps)
(match nil))
(while (and tail (not match))
(setq match (string-match (car tail) bn)
tail (cdr tail)))
match)))))
(and (not (memq buffer dabbrev--friend-buffer-list))
(not (dabbrev--ignore-buffer-p buffer))))
dabbrev--friend-buffer-list
(append dabbrev--friend-buffer-list
non-friend-buffer-list)))))