1 |
;;; reftex-parse.el --- parser functions for RefTeX |
;;; reftex-parse.el --- parser functions for RefTeX |
2 |
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. |
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. |
3 |
|
|
4 |
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> |
;; Author: Carsten Dominik <dominik@science.uva.nl> |
5 |
;; Version: 4.16 |
;; Version: 4.17 |
6 |
;; |
;; |
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
198 |
toc-entry index-entry next-buf buf) |
toc-entry index-entry next-buf buf) |
199 |
|
|
200 |
(catch 'exit |
(catch 'exit |
201 |
|
(debug) |
202 |
(setq file-found (reftex-locate-file file "tex" master-dir)) |
(setq file-found (reftex-locate-file file "tex" master-dir)) |
203 |
(if (and (not file-found) |
(if (and (not file-found) |
204 |
(setq buf (reftex-get-buffer-visiting file))) |
(setq buf (reftex-get-buffer-visiting file))) |
335 |
(save-excursion |
(save-excursion |
336 |
(goto-char (point-min)) |
(goto-char (point-min)) |
337 |
(if (re-search-forward |
(if (re-search-forward |
338 |
"\\(\\`\\|[\n\r]\\)[ \t]*\\\\\\(no\\)?bibliography{[ \t]*\\([^}]+\\)" nil t) |
(concat |
339 |
|
"\\(\\`\\|[\n\r]\\)[^%]*\\\\\\(" |
340 |
|
(mapconcat 'identity reftex-bibliography-commands "\\|") |
341 |
|
"\\){[ \t]*\\([^}]+\\)") nil t) |
342 |
(setq files |
(setq files |
343 |
(split-string (reftex-match-string 3) |
(split-string (reftex-match-string 3) |
344 |
"[ \t\n\r]*,[ \t\n\r]*"))))) |
"[ \t\n\r]*,[ \t\n\r]*"))))) |