andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* doc-view.el (doc-view-initiate-display): Add yes-or-no-p if

Browse source 
rendering of pngs is not possible instead of messaging a long
description.
This commit is contained in:
Chong Yidong 2009-07-17 19:43:49 +00:00
parent 3f5c9cad17
commit 0855c2caf3
2 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2009-07-17 Tassilo Horn <tassilo@member.fsf.org>
* 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.
2009-07-17 David De La Harpe Golden <david@harpegolden.net>
* w32-fns.el (x-selection-owner-p): New function.

17
lisp/doc-view.el
View file

@ -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)