From 7ca4396f855799e3c6b3b88eea9181ee7ad602d4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 21 Dec 2016 15:51:14 -0500 Subject: [PATCH] * 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 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") -- 2.39.2