From 28b707f9bc95181855a7293f4d7b6d23a964a511 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 24 Sep 1999 10:00:17 +0000 Subject: [PATCH] (reftex-parse-from-file): Scan for multiple thebibliography environments. --- lisp/textmodes/reftex-parse.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el index 8b69efe9de0..a6570bcc6cb 100644 --- a/lisp/textmodes/reftex-parse.el +++ b/lisp/textmodes/reftex-parse.el @@ -1,5 +1,5 @@ ;;; reftex-parse.el - Parser Functions for RefTeX -;;; Version: 4.5 +;;; Version: 4.6 ;;; ;;; See main file reftex.el for licensing information @@ -355,8 +355,11 @@ of master file." ;; Carefull: This function expects the match-data to be still in place! (let* ((marker (set-marker (make-marker) (1- (match-beginning 3)))) (macro (reftex-match-string 3)) - (level (cdr (assoc macro reftex-section-levels-all))) - (star (= ?* (char-after (match-end 3)))) + (level-exp (cdr (assoc macro reftex-section-levels-all))) + (level (if (symbolp level-exp) + (save-match-data (funcall level-exp)) + level-exp)) + (star (= ?* (char-after (match-end 3)))) (unnumbered (or star (< level 0))) (level (abs level)) (section-number (reftex-section-number level unnumbered)) @@ -927,7 +930,7 @@ of master file." (min (+ (point) 150) (point-max)))))) ;; Variable holding the vector with section numbers -(defvar reftex-section-numbers [0 0 0 0 0 0 0 0]) +(defvar reftex-section-numbers (make-vector reftex-max-section-depth 0)) (defun reftex-init-section-numbers (&optional toc-entry appendix) ;; Initialize the section numbers with zeros or with what is found -- 2.39.5