diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-09-07 11:35:09 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-09-07 11:35:09 +0000 |
| commit | 2baa32527621a33df7f6ec303adedf9141d753ef (patch) | |
| tree | 303692904a28837e9d13750b6dc239b1591ca931 /lisp/textmodes/refer.el | |
| parent | 75377eba1c524a0a210abfaace2f5b4fe2da3392 (diff) | |
| download | emacs-2baa32527621a33df7f6ec303adedf9141d753ef.tar.gz | |
(refer-find-entry-internal): Use
get-window-with-predicate.
Diffstat (limited to 'lisp/textmodes/refer.el')
| -rw-r--r-- | lisp/textmodes/refer.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el index 9cb10914984..e06ef862791 100644 --- a/lisp/textmodes/refer.el +++ b/lisp/textmodes/refer.el @@ -1,6 +1,6 @@ ;;; refer.el --- look up references in bibliography files -;; Copyright (C) 1992, 1996 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1996, 2001 Free Software Foundation, Inc. ;; Author: Ashwin Ram <ashwin@cc.gatech.edu> ;; Maintainer: Gernot Heiser <gernot@acm.org> @@ -196,13 +196,14 @@ found on the last refer-find-entry or refer-find-next-entry." ;; if a bibliography file is already displayed in a window, use ;; that one, otherwise use any window other than the current one (setq new-window - (some-window (lambda (w) - (while (and (not (null (setq file (nth n files)))) - (setq n (1+ n)) - (not (string-equal file - (buffer-file-name - (window-buffer w)))))) - file))) + (get-window-with-predicate + (lambda (w) + (while (and (not (null (setq file (nth n files)))) + (setq n (1+ n)) + (not (string-equal file + (buffer-file-name + (window-buffer w)))))) + file))) (unless new-window ;; didn't find bib file in any window: (when (one-window-p 'nomini) |