diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/rst.el | 7 |
1 files changed, 6 insertions, 1 deletions
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. |