branch: externals/auctex
commit 29ae5fbdd4029c941de4d6ac6b5a4906d4b4d505
Author: Arash Esbati <arash.esb...@gmail.com>
Commit: Arash Esbati <arash.esb...@gmail.com>
Add \LTXtable to list of file-loading commands
* style/ltxtable.el (LaTeX-ltxtable-file-regexp): New variable.
("ltxtable"): Make AUCTeX and RefTeX aware of \LTXtable as file
loading command.
Add fontification support.
---
style/ltxtable.el | 34 +++++++++++++++++++++++++++++++++-
1 file changed, 33 insertions(+), 1 deletion(-)
diff --git a/style/ltxtable.el b/style/ltxtable.el
index 93dd218..4ce184b 100644
--- a/style/ltxtable.el
+++ b/style/ltxtable.el
@@ -31,10 +31,20 @@
;;; Code:
+(defvar LaTeX-ltxtable-file-regexp
+ `(,(concat "\\\\LTXtable"
+ "{\\(?:[^}]+\\)}"
+ "{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}")
+ 1 TeX-auto-file)
+ "Matches the file argument of \\LTXtable marco from ltxtable package.
+The regexp for the 2. argument is the same as for \"input\" and
+\"include\" entries in `LaTeX-auto-regexp-list'.")
+
(TeX-add-style-hook
"ltxtable"
(lambda ()
(TeX-run-style-hooks "tabularx" "longtable")
+
(TeX-add-symbols
'("LTXtable"
(TeX-arg-length "Width" "1.0\\linewidth")
@@ -42,7 +52,29 @@
(lambda ()
(let ((longtable (file-relative-name
(read-file-name "File with longtable: "))))
- (format "%s" longtable)))))))
+ (format "%s" longtable))))))
+
+ ;; Make sure that \LTXtable stays in its own line:
+ (LaTeX-paragraph-commands-add-locally "LTXtable")
+
+ ;; Tell AUCTeX about a new file-include command:
+ (TeX-auto-add-regexp LaTeX-ltxtable-file-regexp)
+
+ ;; Tell RefTeX about a new file-include command: Add
+ ;; LTXtable{<width>} as a regexp (without \) to
+ ;; `reftex-include-file-commands' and run
+ ;; `reftex-compile-variables'. Do this all only once.
+ (when (and (boundp 'reftex-include-file-commands)
+ (not (string-match "LTXtable"
+ (mapconcat #'identity
reftex-include-file-commands "|"))))
+ (add-to-list 'reftex-include-file-commands "LTXtable{\\(?:[^}]+\\)}" t)
+ (reftex-compile-variables))
+
+ ;; Fontification
+ (when (and (featurep 'font-latex)
+ (eq TeX-install-font-lock 'font-latex-setup))
+ (font-latex-add-keywords '(("LTXtable" "{{"))
+ 'textual)))
LaTeX-dialect)
(defvar LaTeX-ltxtable-package-options nil
