Mercurial > emacs
changeset 23306:4beab023a902
(dabbrev--find-expansion): Don't scan the current buffer
over again.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 23 Sep 1998 21:56:59 +0000 |
| parents | 61483b4c169c |
| children | 5d6530954ece |
| files | lisp/dabbrev.el |
| diffstat | 1 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dabbrev.el Wed Sep 23 21:51:50 1998 +0000 +++ b/lisp/dabbrev.el Wed Sep 23 21:56:59 1998 +0000 @@ -768,14 +768,16 @@ (append dabbrev--friend-buffer-list non-friend-buffer-list))))) ;; Move buffers that are visible on the screen - ;; to the front of the list. - (if dabbrev--friend-buffer-list - (let ((w (next-window (selected-window)))) - (while (not (eq w (selected-window))) - (setq dabbrev--friend-buffer-list - (cons (window-buffer w) - (delq (window-buffer w) dabbrev--friend-buffer-list))) - (setq w (next-window w))))) + ;; to the front of the list. Remove the current buffer. + (when dabbrev--friend-buffer-list + (let ((w (next-window (selected-window)))) + (while (not (eq w (selected-window))) + (setq dabbrev--friend-buffer-list + (cons (window-buffer w) + (delq (window-buffer w) dabbrev--friend-buffer-list))) + (setq w (next-window w)))) + (setq dabbrev--friend-buffer-list + (delq (current-buffer) dabbrev--friend-buffer-list))) ;; Walk through the buffers (while (and (not expansion) dabbrev--friend-buffer-list) (setq dabbrev--last-buffer