diff options
| author | Sašo Živanović <saso.zivanovic@guest.arnes.si> | 2016-12-30 11:12:42 +0100 |
|---|---|---|
| committer | Tassilo Horn <tsdh@gnu.org> | 2017-01-02 13:11:49 +0100 |
| commit | 1e8bb313eaa98928dc258f4b903bb10c33c21642 (patch) | |
| tree | aa89bdc6986080f3500bc79ccd955e39ec14f05a /lisp | |
| parent | 367dadf5541f3cc10ba992efb885bd259246ca66 (diff) | |
| download | emacs-1e8bb313eaa98928dc258f4b903bb10c33c21642.tar.gz emacs-1e8bb313eaa98928dc258f4b903bb10c33c21642.tar.bz2 emacs-1e8bb313eaa98928dc258f4b903bb10c33c21642.zip | |
Fix RefTeX to show table of contents for dtx files (tiny change)
* lisp/textmodes/reftex.el (reftex-compile-variables): Change the
section regexp so that it accepts lines starting with the comment
character. (tiny change)
* lisp/textmodes/reftex-parse.el (reftex-parse-from-file): Filter
gathered toc entries, accepting a commented entry if and only if the
source file is a ".dtx" file. (tiny change)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/reftex-parse.el | 5 | ||||
| -rw-r--r-- | lisp/textmodes/reftex.el | 4 |
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el index a2de4166d24..af2810d72e8 100644 --- a/lisp/textmodes/reftex-parse.el +++ b/lisp/textmodes/reftex-parse.el @@ -270,7 +270,10 @@ of master file." (when (eq (char-before) ?\\) (backward-char)) ;; Insert in List (setq toc-entry (funcall reftex-section-info-function file)) - (when toc-entry + (when (and toc-entry + (eq ;; Either both are t or both are nil. + (= (char-after bound) ?%) + (string-suffix-p ".dtx" file))) ;; It can happen that section info returns nil (setq level (nth 5 toc-entry)) (setq highest-level (min highest-level level)) diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index 2de83a8e336..18b35981f82 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el @@ -1015,8 +1015,8 @@ This enforces rescanning the buffer on next use." ;; Calculate the regular expressions (let* ( ; (wbol "\\(\\`\\|[\n\r]\\)[ \t]*") - (wbol "\\(^\\)[ \t]*") ; Need to keep the empty group because - ; match numbers are hard coded + (wbol "\\(^\\)%?[ \t]*") ; Need to keep the empty group because + ; match numbers are hard coded (label-re (concat "\\(?:" (mapconcat 'identity reftex-label-regexps "\\|") "\\)")) |