summaryrefslogtreecommitdiff
path: root/lisp/doc-view.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-09-30 17:39:38 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-09-30 17:39:38 +0200
commit5746202c182a9c69c732beb29b8507a6e6364799 (patch)
treeb1713ce76711595cac5ea221da5bd065e39d3ef2 /lisp/doc-view.el
parente7ee756f54834bda7ab2d862d7832a77de909b8e (diff)
downloademacs-5746202c182a9c69c732beb29b8507a6e6364799.tar.gz
Make doc-view error message more informative
* lisp/doc-view.el (doc-view-initiate-display): Make error message clearer (bug#3827).
Diffstat (limited to 'lisp/doc-view.el')
-rw-r--r--lisp/doc-view.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 9fe177a184a..f75421e7b5c 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -1715,11 +1715,11 @@ If BACKWARD is non-nil, jump to the previous match."
(substitute-command-keys
(concat "Type \\[doc-view-toggle-display] to toggle between "
"editing or viewing the document."))))
- (message
- "%s"
- (concat "No PNG support is available, or some conversion utility for "
- (file-name-extension doc-view--buffer-file-name)
- " files is missing."))
+ (if (image-type-available-p 'png)
+ (message "Conversion utility \"%s\" not available for %s"
+ doc-view-ghostscript-program
+ (file-name-extension doc-view--buffer-file-name))
+ (message "PNG support not available; can't view document"))
(if (and (executable-find doc-view-pdftotext-program)
(y-or-n-p
"Unable to render file. View extracted text instead? "))