# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 999862509 0
# Node ID 286d91f8ebe35de3444c5abe0975e02c981318e7
# Parent  8558951ba7361f1ea25331fc38a74b3597eece60
(refer-find-entry-internal): Use
get-window-with-predicate.

diff -r 8558951ba736 -r 286d91f8ebe3 lisp/textmodes/refer.el
--- 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)