From: Simen Heggestøyl <simenheg@gmail.com>
Date: Sat, 27 Jan 2018 11:18:40 +0000 (+0100)
Subject: Warn about missing executables in RST PDF preview
X-Git-Tag: emacs-27.0.90~1185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d57c829af571465c261d9f865eeee5ed3cae985;p=emacs.git

Warn about missing executables in RST PDF preview

* lisp/textmodes/rst.el (rst-compile-pdf-preview): Warn about missing
executables when attempting to compile and preview an RST file as PDF.
(Bug#30063)
---

diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index b7438fbb109..ce9e6335117 100644
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -4380,10 +4380,15 @@ buffer, if the region is not selected."
   "Convert the document to a PDF file and launch a preview program."
   (interactive)
   (let* ((tmp-filename (make-temp-file "rst_el" nil ".pdf"))
+         (pdf-compile-program (cadr (assq 'pdf rst-compile-toolsets)))
 	 (command (format "%s %s %s && %s %s ; rm %s"
-			  (cadr (assq 'pdf rst-compile-toolsets))
+			  pdf-compile-program
 			  buffer-file-name tmp-filename
 			  rst-pdf-program tmp-filename tmp-filename)))
+    (unless (executable-find pdf-compile-program)
+      (error "Cannot find executable `%s'" pdf-compile-program))
+    (unless (executable-find rst-pdf-program)
+      (error "Cannot find executable `%s'" rst-pdf-program))
     (start-process-shell-command "rst-pdf-preview" nil command)
     ;; Note: you could also use (compile command) to view the compilation
     ;; output.