branch: externals/auctex-cont-latexmk
commit 67db167b485b333194710c3414bc011b326f2bf4
Author: Paul Nelson <ultr...@gmail.com>
Commit: Paul Nelson <ultr...@gmail.com>
simplify system-specific quoting of arguments
We don't need to wrap in system-specific quotes after passing an
argument through shell-quote-argument.
---
auctex-cont-latexmk.el | 25 +++++++++++--------------
1 file changed, 11 insertions(+), 14 deletions(-)
diff --git a/auctex-cont-latexmk.el b/auctex-cont-latexmk.el
index fafce31734..f94f86776e 100644
--- a/auctex-cont-latexmk.el
+++ b/auctex-cont-latexmk.el
@@ -219,20 +219,17 @@ additional option to output build files to a directory (if
(defun auctex-cont-latexmk--compilation-command ()
"Return the command used to compile the current LaTeX document."
- (let ((quote
- (if (memq system-type '(ms-dos windows-nt))
- "\""
- "'")))
- (concat
- (mapconcat (lambda (item)
- (if (listp item)
- (concat quote (mapconcat #'identity item) quote)
- item))
- auctex-cont-latexmk-command)
- (when TeX-output-dir
- (concat " -outdir=" (shell-quote-argument TeX-output-dir)))
- " "
- (shell-quote-argument (TeX-master-file "tex")))))
+ (concat
+ (mapconcat
+ (lambda (item)
+ (if (listp item)
+ (shell-quote-argument (mapconcat #'identity item))
+ item))
+ auctex-cont-latexmk-command)
+ (when TeX-output-dir
+ (concat " -outdir=" (shell-quote-argument TeX-output-dir)))
+ " "
+ (shell-quote-argument (TeX-master-file "tex"))))
(defun auctex-cont-latexmk--compilation-buffer-name ()
"Return the name of the buffer used for LaTeX compilation."
