monnier pushed a commit to branch externals/auctex
in repository elpa.
commit a8a2a264dc60efc6ef12b4b0398bb5087ba71126
Author: Tassilo Horn <[email protected]>
Date: Tue Jul 2 08:30:40 2013 +0200
Improve mgs check.
* preview.el (preview-gs-command): Better test if `mgs' is
working.
---
preview/ChangeLog | 5 +++++
preview/preview.el | 2 +-
2 files changed, 6 insertions(+), 1 deletions(-)
diff --git a/preview/ChangeLog b/preview/ChangeLog
index 914a7b2..e0065bd 100644
--- a/preview/ChangeLog
+++ b/preview/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-02 Tassilo Horn <[email protected]>
+
+ * preview.el (preview-gs-command): Better test if `mgs' is
+ working.
+
2013-07-01 Tassilo Horn <[email protected]>
* preview.el (preview-gs-command): Test `mgs' for functionality
diff --git a/preview/preview.el b/preview/preview.el
index db91109..b1b17f5 100644
--- a/preview/preview.el
+++ b/preview/preview.el
@@ -351,7 +351,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 (= 0 (shell-command (concat gs " -q -dNOPAUSE -dBATCH")))
+ (when (= 0 (shell-command (concat gs " -q -dNODISPLAY -c "2 3 mul" -c
quit")))
gs))
;; Windows ghostscript
(executable-find "GSWIN32C.EXE")
