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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db63633382612e8e157c66fbd7053faf8aacc7b9..8cdee883b828b87a4348c3a5cd57327dae296389 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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>
 
        * mail/mspools.el (rmail-get-new-mail):

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 5443bc3672ed6bbb9866843aee7fcfe2a8703b3f..d0515fffe70bcf9caac1012b02b6c345ca595de9 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -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))))))
 
+;;;###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
 
 (defvar doc-view-shrink-factor 1.125)