monnier pushed a commit to branch externals/auctex
in repository elpa.
commit 0c257b99d169f47bee08de86df426461d37fb582
Author: Tassilo Horn <[email protected]>
Date: Sat Jun 29 10:01:18 2013 +0200
Prefer TeX distro GS wrappers.
* preview.el (preview-gs-command): Prefer the TeX distro
ghostscript wrapper scripts `rungs' and `mgs' over calling `gs'
directly which requires it to be in PATH.
---
preview/ChangeLog | 6 ++++++
preview/preview.el | 12 +++++++++---
2 files changed, 15 insertions(+), 3 deletions(-)
diff --git a/preview/ChangeLog b/preview/ChangeLog
index 6565b91..8d057fe 100644
--- a/preview/ChangeLog
+++ b/preview/ChangeLog
@@ -1,3 +1,9 @@
+2013-06-29 Tassilo Horn <[email protected]>
+
+ * preview.el (preview-gs-command): Prefer the TeX distro
+ ghostscript wrapper scripts `rungs' and `mgs' over calling `gs'
+ directly which requires it to be in PATH.
+
2013-06-26 Tassilo Horn <[email protected]>
* Makefile.in (use-hint): Don't warn about problems with overly
diff --git a/preview/preview.el b/preview/preview.el
index 82ce926..77ebaab 100644
--- a/preview/preview.el
+++ b/preview/preview.el
@@ -344,9 +344,15 @@ LIST consists of TeX dimensions in sp (1/65536 TeX point)."
(dotimes (i 4 box)
(aset box i (+ (aref box i) (aref border i)))))))
-(defcustom preview-gs-command (if (eq system-type 'windows-nt)
- "GSWIN32C.EXE"
- "gs")
+(defcustom preview-gs-command
+ (or ;; The GS wrapper coming with TeX Live
+ (executable-find "rungs")
+ ;; The GS wrapper coming with MikTeX
+ (executable-find "mgs")
+ ;; Windows ghostscript
+ (executable-find "GSWIN32C.EXE")
+ ;; standard GhostScript
+ (executable-find "gs"))
"*How to call gs for conversion from EPS. See also `preview-gs-options'."
:group 'preview-gs
:type 'string)
