branch: externals/auctex
commit dd9adef7b2fee77fa2da0be5f6891e2d2649a46e
Author: Tassilo Horn <t...@gnu.org>
Commit: Tassilo Horn <t...@gnu.org>
Case-sensitive mode detection + AMS-TeX fixes
* tex.el (TeX-tex-mode): Don't ignore case when matching the
TeX-format-list regexes.
(TeX-expand-list): Add expansion of %(PDFout) to -output-format
option for AmS-TeX.
(TeX-command-list): Use it instead of calling the non-existing
pdfamstex command.
---
ChangeLog | 9 +++++++++
tex.el | 10 +++++++---
2 files changed, 16 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index e679b54..d57cf18 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2015-09-03 Tassilo Horn <t...@gnu.org>
+
+ * tex.el (TeX-tex-mode): Don't ignore case when matching the
+ TeX-format-list regexes.
+ (TeX-expand-list): Add expansion of %(PDFout) to -output-format
+ option for AmS-TeX.
+ (TeX-command-list): Use it instead of calling the non-existing
+ pdfamstex command.
+
2015-09-02 Tassilo Horn <t...@gnu.org>
* font-latex.el: Remove code which set up font-latex for use with
diff --git a/tex.el b/tex.el
index 3e43bb4..7513734 100644
--- a/tex.el
+++ b/tex.el
@@ -132,7 +132,7 @@ If nil, none is specified."
(texinfo-mode) :help "Run Makeinfo with Info output")
("Makeinfo HTML" "makeinfo %(extraopts) --html %t" TeX-run-compile nil
(texinfo-mode) :help "Run Makeinfo with HTML output")
- ("AmSTeX" "%(PDF)amstex %(extraopts) %`%S%(PDFout)%(mode)%' %t"
+ ("AmSTeX" "amstex %(PDFout) %(extraopts) %`%S%(mode)%' %t"
TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX")
;; support for ConTeXt --pg
;; first version of ConTeXt to support nonstopmode: 2003.2.10
@@ -455,7 +455,11 @@ string."
"pdf"
"")))
("%(PDFout)" (lambda ()
- (cond ((and (eq TeX-engine 'xetex)
+ (cond ((eq major-mode 'ams-tex-mode)
+ (if TeX-PDF-mode
+ " -output-format=pdf"
+ " -output-format=dvi"))
+ ((and (eq TeX-engine 'xetex)
(not TeX-PDF-mode))
" -no-pdf")
((and (eq TeX-engine 'luatex)
@@ -3398,7 +3402,7 @@ The algorithm is as follows:
(regexp-quote TeX-esc)
"\\)*\\)\\(%+ *\\)"))
(entry TeX-format-list)
- answer)
+ answer case-fold-search)
(while (and entry (not answer))
(if (re-search-forward (nth 2 (car entry))
10000 t)
