From: Manuel Giraud <manuel@ledu-giraud.fr>
Date: Fri, 19 Jul 2024 12:30:54 +0000 (+0200)
Subject: Fix DocView with PostScript files
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73dfdf0e990fb282875f0ac72118e02e96f3ef96;p=emacs.git

Fix DocView with PostScript files

* lisp/doc-view.el (doc-view-set-up-single-converter): Produce PNG
from PS in a file with ".png" extension.  (Bug#72193)

(cherry picked from commit ab29b28d4ba58642f467fc15085ad8f7485fd90d)
---

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 98807840884..38907c2f226 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -2151,6 +2151,8 @@ GOTO-PAGE-FN other than `doc-view-goto-page'."
   (pcase-let ((`(,conv-function ,type ,extension)
                (pcase doc-view-doc-type
                  ('djvu (list #'doc-view-djvu->tiff-converter-ddjvu 'tiff "tif"))
+                 ((or 'ps 'postscript 'eps)
+                  (list #'doc-view-ps->png-converter-ghostscript 'png "png"))
                  (_ (if (and (eq doc-view-pdf->png-converter-function
                                  #'doc-view-pdf->png-converter-mupdf)
                              doc-view-mupdf-use-svg)