diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-07-17 19:43:49 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-07-17 19:43:49 +0000 |
| commit | 0855c2caf383ba9412e2f3db0ac374a94a055222 (patch) | |
| tree | 9523d941e66bd2d3f7c9d635278eed4cc50fbc54 /lisp/doc-view.el | |
| parent | 3f5c9cad1790b08f123b2bf81aa090b23e416f25 (diff) | |
| download | emacs-0855c2caf383ba9412e2f3db0ac374a94a055222.tar.gz | |
* doc-view.el (doc-view-initiate-display): Add yes-or-no-p if
rendering of pngs is not possible instead of messaging a long
description.
Diffstat (limited to 'lisp/doc-view.el')
| -rw-r--r-- | lisp/doc-view.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index ce6a7fd0ba9..3ea4fcecfde 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -1078,15 +1078,14 @@ If BACKWARD is non-nil, jump to the previous match." "editing or viewing the document.")))) (message "%s" - (substitute-command-keys - (concat "No PNG support available or some conversion utility for " - (file-name-extension doc-view-buffer-file-name)" files is missing. " - "Type \\[doc-view-toggle-display] to switch to " - (if (eq doc-view-doc-type 'ps) - "ps-mode" - "fundamental-mode") - ", \\[doc-view-open-text] to show the doc as text in a separate buffer " - " or \\[doc-view-kill-proc-and-buffer] to kill this buffer."))))) + (concat "No PNG support is available, or some conversion utility for " + (file-name-extension doc-view-buffer-file-name) + " files is missing.")) + (if (and (executable-find doc-view-pdftotext-program) + (y-or-n-p + "Unable to render file. View extracted text instead? ")) + (doc-view-open-text) + (doc-view-toggle-display)))) (defvar bookmark-make-record-function) |