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 <>
* doc-view.el (doc-view-mode-p): New function.
2007-11-25 Dan Nicolaescu <>
* mail/mspools.el (rmail-get-new-mail):
......@@ -456,6 +456,24 @@ It's a subdirectory of `doc-view-cache-directory'."
(when (not (funcall predicate item))
(setq new-list (cons item new-list))))))
(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)
((eq type 'dvi)
(and (doc-view-mode-p 'pdf)
(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
;;;; Conversion Functions
(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