# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962615444 0
# Node ID d6a745cf3bfcea165dac647615392f0f22495ec7
# Parent  f784be5b6130da2b943d83d06554c5c2c739c8fd
(refer-find-entry-internal): Use some-window
instead of cycling through windows with next-window.

diff -r f784be5b6130 -r d6a745cf3bfc lisp/textmodes/refer.el
--- a/lisp/textmodes/refer.el	Mon Jul 03 07:51:52 2000 +0000
+++ b/lisp/textmodes/refer.el	Mon Jul 03 09:10:44 2000 +0000
@@ -195,21 +195,19 @@
      ;; find window in which to display bibliography file.
      ;; if a bibliography file is already displayed in a window, use
      ;; that one, otherwise use any window other than the current one
-     (while (not found)
-       (while (and (not (null (setq file (nth n files))))
-                   (setq n (1+ n))
-                   (not (string-equal file
-                                      (buffer-file-name
-                                       (window-buffer new-window))))))
-       (setq found
-             (if (null file)
-                 (eq (setq new-window (next-window new-window 'nomini))
-                     old-window)
-               't)))
-     (if (null file)                     ; didn't find bib file in any window:
-         (progn (if (one-window-p 'nomini)
-                    (setq old-window (split-window)))
-                (setq new-window (next-window old-window 'nomini))))
+     (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)))
+     (unless new-window
+       ;; didn't find bib file in any window:
+       (when (one-window-p 'nomini)
+	 (setq old-window (split-window)))
+       (setq new-window (next-window old-window 'nomini)))
      (select-window (if refer-same-file
                         old-window
                       new-window))  ; the window in which to show the bib file