martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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))