Commit 789ab9d4 authored by Reiner Steib's avatar Reiner Steib
Browse files

(doc-view-mode-p): New function.

parent 2b54af74
2007-11-25 Reiner Steib <Reiner.Steib@gmx.de>
* doc-view.el (doc-view-mode-p): New function.
2007-11-25 Dan Nicolaescu <dann@ics.uci.edu> 2007-11-25 Dan Nicolaescu <dann@ics.uci.edu>
* mail/mspools.el (rmail-get-new-mail): * mail/mspools.el (rmail-get-new-mail):
......
...@@ -456,6 +456,24 @@ It's a subdirectory of `doc-view-cache-directory'." ...@@ -456,6 +456,24 @@ It's a subdirectory of `doc-view-cache-directory'."
(when (not (funcall predicate item)) (when (not (funcall predicate item))
(setq new-list (cons item new-list)))))) (setq new-list (cons item new-list))))))
;;;###autoload
(defun doc-view-mode-p (type)
"Return non-nil if image type TYPE is available for `doc-view'.
Image types are symbols like `dvi', `postscript' or `pdf'."
(and (display-graphic-p)
(image-type-available-p 'png)
(cond
((eq type 'dvi)
(and (doc-view-mode-p 'pdf)
doc-view-dvipdfm-program
(executable-find doc-view-dvipdfm-program)))
((or (eq type 'postscript) (eq type 'ps)
(eq type 'pdf))
(and doc-view-ghostscript-program
(executable-find doc-view-ghostscript-program)))
(t ;; unknown image type
nil))))
;;;; Conversion Functions ;;;; Conversion Functions
(defvar doc-view-shrink-factor 1.125) (defvar doc-view-shrink-factor 1.125)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment