mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(refer-find-entry-internal): Use

Browse Source 
get-window-with-predicate.
This commit is contained in:
Gerd Moellmann 2001-09-07 11:35:09 +00:00
parent 75377eba1c
commit 2baa325276
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/textmodes/refer.el
View File

@ -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)