mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
instead of file name extension to make docs with uncommon
extensions work.
This commit is contained in:
Tassilo Horn 2008-03-18 17:43:26 +00:00
parent 23cda57253
commit 322f455981
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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

2
lisp/doc-view.el
View file

@ -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))