;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
(files (reftex-all-document-files))
(cmd (format "etags %s" (mapconcat 'identity files " "))))
(save-excursion
- (set-buffer (reftex-get-buffer-visiting master))
+ (set-buffer (reftex-get-file-buffer-force master))
(message "Running etags to create TAGS file...")
(shell-command cmd)
(visit-tags-table "TAGS"))))
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
;; BUF is the buffer which has the correct docstruct-symbol.
;; LABELS non-nil means to include labels into the list.
;; When a string, indicates the label type to include
- ;; FILES non-nil menas to display file boundaries.
+ ;; FILES non-nil means to display file boundaries.
;; CONTEXT non-nil means to include label context.
;; COUNTER means to count the labels.
;; SHOW-COMMENTED means to include also labels which are commented out.
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
["External Document TOC " reftex-toc-external t]
"--"
("Update"
- ["Rebuild *toc* Buffer" revert-buffer t]
+ ["Rebuilt *toc* Buffer" revert-buffer t]
["Rescan One File" reftex-toc-rescan reftex-enable-partial-scans]
["Rescan Entire Document" reftex-toc-Rescan t])
("Options"
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;;
;; This file is part of GNU Emacs.
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
-;; Version: 4.14
+;; Version: 4.15
;; Keywords: tex
;; This file is part of GNU Emacs.
;;; Define the formal stuff for a minor mode named RefTeX.
;;;
-(defconst reftex-version "RefTeX version 4.14"
+(defconst reftex-version "RefTeX version 4.15"
"Version string for RefTeX.")
(defvar reftex-mode nil
(condition-case nil
(TeX-master-file t)
(error (buffer-file-name))))
+ ((fboundp 'tex-main-file) (tex-main-file)) ; Emacs LaTeX mode
((boundp 'TeX-master) ; The variable is defined - lets use it.
(cond
((eq TeX-master t)
;; Scan whatever was required by the caller.
(reftex-do-parse rescan file))))
+(defun reftex-scanning-info-available-p ()
+ "Is the scanning info about the current document available?"
+ (unless reftex-docstruct-symbol
+ (reftex-tie-multifile-symbols))
+ (and (symbolp reftex-docstruct-symbol)
+ (symbol-value reftex-docstruct-symbol)
+ t))
+
(defun reftex-silence-toc-markers (list n)
;; Set all toc markers in the first N entries in list to nil
(while (and list (> (decf n) -1))