From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 21 Dec 2016 20:51:14 +0000 (-0500)
Subject: * tex-mode.el (tex-compile-commands): Add luatex and xetex commands
X-Git-Tag: emacs-26.0.90~1038
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ca4396f855799e3c6b3b88eea9181ee7ad602d4;p=emacs.git

* tex-mode.el (tex-compile-commands): Add luatex and xetex commands
---

diff --git a/etc/NEWS b/etc/NEWS
index 8ea9a60ab00..9fbbf5cc42b 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -312,6 +312,8 @@ the file's actual content before prompting the user.
 
 * Changes in Specialized Modes and Packages in Emacs 26.1
 
+** TeX: Add luatex and xetex as alternatives to pdftex
+
 ** Electric-Buffer-menu
 
 +++
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 1363efea310..25d674541c5 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -2113,13 +2113,17 @@ If NOT-ALL is non-nil, save the `.dvi' file."
   :group 'tex)
 
 (defvar tex-compile-commands
-  '(((concat "pdf" tex-command
-	     " " (if (< 0 (length tex-start-commands))
-		     (shell-quote-argument tex-start-commands)) " %f")
-     t "%r.pdf")
+  `(,@(mapcar (lambda (prefix)
+                `((concat ,prefix tex-command
+                          " " (if (< 0 (length tex-start-commands))
+                                  (shell-quote-argument tex-start-commands))
+                          " %f")
+                  t "%r.pdf"))
+              '("pdf" "xe" "lua"))
     ((concat tex-command
 	     " " (if (< 0 (length tex-start-commands))
-		     (shell-quote-argument tex-start-commands)) " %f")
+		     (shell-quote-argument tex-start-commands))
+             " %f")
      t "%r.dvi")
     ("xdvi %r &" "%r.dvi")
     ("\\doc-view \"%r.pdf\"" "%r.pdf")