branch: externals/auctex
commit 36943732d87a2a9bac9a144541b0936c7ba5883d
Author: Ikumi Keita <[email protected]>
Commit: Ikumi Keita <[email protected]>
Deal with space in path of MikTeX gs executable (Bug#32251)
* preview.el.in (preview-gs-command): Wrap gs with
`shell-quote-argument' in case it has space in its path.
---
preview.el.in | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/preview.el.in b/preview.el.in
index 5d777dd..dd32c69 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -343,7 +343,7 @@ LIST consists of TeX dimensions in sp (1/65536 TeX point)."
(let ((gs (executable-find "mgs")))
;; Check if mgs is functional for external non-MikTeX apps.
;; See
http://blog.miktex.org/post/2005/04/07/Starting-mgsexe-at-the-DOS-Prompt.aspx
- (when (and gs (= 0 (shell-command (concat gs " -q -dNODISPLAY -c
quit"))))
+ (when (and gs (= 0 (shell-command (concat (shell-quote-argument gs) "
-q -dNODISPLAY -c quit"))))
gs))
;; Windows ghostscript
(executable-find "GSWIN32C.EXE")
