Mercurial > emacs
diff lisp/textmodes/refer.el @ 39176:286d91f8ebe3
(refer-find-entry-internal): Use
get-window-with-predicate.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 07 Sep 2001 11:35:09 +0000 |
| parents | b174db545cfd |
| children | 5ade352e8d1c |
line wrap: on
line diff
--- a/lisp/textmodes/refer.el Fri Sep 07 11:34:17 2001 +0000 +++ b/lisp/textmodes/refer.el Fri Sep 07 11:35:09 2001 +0000 @@ -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 @@ ;; 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)