Mercurial > emacs

comparison lisp/doc-view.el @ 93050:831841710ce9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(doc-view-initiate-display): Use doc-view-doc-type instead of file name extension to make docs with uncommon extensions work.
author Tassilo Horn <tassilo@member.fsf.org>
date Tue, 18 Mar 2008 17:42:39 +0000
parents 7a4d478a79d1
children 1f7e9d28dedf
comparison
equal deleted inserted replaced
93049:6ed34a0188a5 93050:831841710ce9
955 (and (file-exists-p (doc-view-current-cache-dir)) 955 (and (file-exists-p (doc-view-current-cache-dir))
956 (> 0 (length (directory-files (doc-view-current-cache-dir) nil "\\.png$"))))) 956 (> 0 (length (directory-files (doc-view-current-cache-dir) nil "\\.png$")))))
957 957
958 (defun doc-view-initiate-display () 958 (defun doc-view-initiate-display ()
959 ;; Switch to image display if possible 959 ;; Switch to image display if possible
960 (if (doc-view-mode-p (intern (file-name-extension doc-view-buffer-file-name))) 960 (if (doc-view-mode-p doc-view-doc-type)
961 (progn 961 (progn
962 (doc-view-buffer-message) 962 (doc-view-buffer-message)
963 (setf (doc-view-current-page) (or (doc-view-current-page) 1)) 963 (setf (doc-view-current-page) (or (doc-view-current-page) 1))
964 (if (doc-view-already-converted-p) 964 (if (doc-view-already-converted-p)
965 (progn 965 (progn