emacs-27 37ebec3: Improve the default value of 'doc-view-ghostscript-program'.

[Tassilo Horn]

branch: emacs-27
commit 37ebec3a95cecd970c578e1955c940b3ad9f4e56
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>

    Improve the default value of 'doc-view-ghostscript-program'.
    
    * 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)
---
 lisp/doc-view.el | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 714fdf8..171a939 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -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