[Emacs-diffs] master 7ca4396: * tex-mode.el (tex-compile-commands): Add luatex and xetex commands

[Stefan Monnier]

branch: master
commit 7ca4396f855799e3c6b3b88eea9181ee7ad602d4
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * tex-mode.el (tex-compile-commands): Add luatex and xetex commands
---
 etc/NEWS                   |    2 ++
 lisp/textmodes/tex-mode.el |   14 +++++++++-----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index 8ea9a60..9fbbf5c 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 1363efe..25d6745 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")