monnier pushed a commit to branch externals/auctex in repository elpa. commit a8a2a264dc60efc6ef12b4b0398bb5087ba71126 Author: Tassilo Horn <t...@gnu.org> 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 <t...@gnu.org> + + * preview.el (preview-gs-command): Better test if `mgs' is + working. + 2013-07-01 Tassilo Horn <t...@gnu.org> * 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")