(doc-view-initiate-display): Use doc-view-doc-type

instead of file name extension to make docs with uncommon
extensions work.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f36f99ebdbab4cd2d09962e406bf65f80ee12871..c2b968ea9dc9367e536918f7235bc0d52907fadd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-03-18  Tassilo Horn  <tassilo@member.fsf.org>
+
+       * doc-view.el (doc-view-initiate-display): Use doc-view-doc-type
+       instead of file name extension to make docs with uncommon
+       extensions work.
+
 2008-03-18  Tassilo Horn  <tassilo@member.fsf.org>
 
        * doc-view.el (require): Require cl at compile time because

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 2c7862df885cef4ff0cd192e9d24a838fa8f084e..da8edaaaed6afdb51defd58d55bd63f0b592cf37 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -957,7 +957,7 @@ If BACKWARD is non-nil, jump to the previous match."
 
 (defun doc-view-initiate-display ()
   ;; Switch to image display if possible
-  (if (doc-view-mode-p (intern (file-name-extension doc-view-buffer-file-name)))
+  (if (doc-view-mode-p doc-view-doc-type)
       (progn
        (doc-view-buffer-message)
        (setf (doc-view-current-page) (or (doc-view-current-page) 1))