[elpa] externals/auctex 3694373 05/67: Deal with space in path of MikTeX gs executable (Bug#32251)

[Tassilo Horn]

branch: externals/auctex
commit 36943732d87a2a9bac9a144541b0936c7ba5883d
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    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")