diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/doc-view.el | 18 |
2 files changed, 22 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index db636333826..8cdee883b82 100644 --- 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 5443bc3672e..d0515fffe70 100644 --- 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) |