Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2baa3252
Commit
2baa3252
authored
Sep 07, 2001
by
Gerd Moellmann
Browse files
(refer-find-entry-internal): Use
get-window-with-predicate.
parent
75377eba
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
8 deletions
+9
-8
lisp/textmodes/refer.el
lisp/textmodes/refer.el
+9
-8
No files found.
lisp/textmodes/refer.el
View file @
2baa3252
;;; 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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment