monnier pushed a commit to branch externals/auctex
in repository elpa.
commit d9d4ab36b4cdb5ca93f50708098873e21c48b036
Author: Tassilo Horn <t...@gnu.org>
Date: Wed Jul 3 09:01:32 2013 +0200
Shorter mgs check.
* preview.el (preview-gs-command): Change test for `mgs'
functionality to "gs -q -dNODISPLAY -c quit".
---
preview/ChangeLog | 5 +++++
preview/preview.el | 2 +-
2 files changed, 6 insertions(+), 1 deletions(-)
diff --git a/preview/ChangeLog b/preview/ChangeLog
index e0065bd..285d7a4 100644
--- a/preview/ChangeLog
+++ b/preview/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-03 Tassilo Horn <t...@gnu.org>
+
+ * preview.el (preview-gs-command): Change test for `mgs'
+ functionality to "gs -q -dNODISPLAY -c quit".
+
2013-07-02 Tassilo Horn <t...@gnu.org>
* preview.el (preview-gs-command): Better test if `mgs' is
diff --git a/preview/preview.el b/preview/preview.el
index b1b17f5..538ded3 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 -dNODISPLAY -c "2 3 mul" -c
quit")))
+ (when (= 0 (shell-command (concat gs " -q -dNODISPLAY -c quit")))
gs))
;; Windows ghostscript
(executable-find "GSWIN32C.EXE")
