procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve the default value of 'doc-view-ghostscript-program'.

Browse source 
* lisp/doc-view.el (doc-view-ghostscript-program): Use plain command
name instead of qualified name returned by executable-find (as
suggested by Stefan Monnier).  (Bug#36357)
This commit is contained in:
Tassilo Horn 2020-04-23 18:25:07 +02:00
parent ba6104d1e8
commit 37ebec3a95
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/doc-view.el
View file

@ -155,20 +155,18 @@
(defcustom doc-view-ghostscript-program
(cond
((memq system-type '(windows-nt ms-dos))
(or
(cond
;; Windows Ghostscript
(executable-find "gswin64c")
(executable-find "gswin32c")
((executable-find "gswin64c") "gswin64c")
((executable-find "gswin32c") "gswin32c")
;; The GS wrapper coming with TeX Live
(executable-find "rungs")
((executable-find "rungs") "rungs")
;; The MikTeX builtin GS Check if mgs is functional for external
;; non-MikTeX apps. Was available under:
;; http://blog.miktex.org/post/2005/04/07/Starting-mgsexe-at-the-DOS-Prompt.aspx
(when-let ((mgs (executable-find "mgs")))
(when (= 0 (shell-command
(concat (shell-quote-argument mgs)
" -q -dNODISPLAY -c quit")))
mgs))))
((and (executable-find "mgs")
(= 0 (shell-command "mgs -q -dNODISPLAY -c quit")))
"mgs")))
(t "gs"))
"Program to convert PS and PDF files to PNG."
:type 'file