diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-14 17:01:37 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-14 17:01:37 -0400 |
| commit | 005551fe3654f6037f78921388302fb2929c459e (patch) | |
| tree | ea60468df5d36c8d78fcc4424f2a954d11bc6476 /lisp/doc-view.el | |
| parent | b92583c4bf4a6df612dfcef7e9c5d2a625bee04a (diff) | |
| download | emacs-005551fe3654f6037f78921388302fb2929c459e.tar.gz | |
* lisp/doc-view.el (doc-view-set-doc-type): Ignore file name case; add .pps.
Diffstat (limited to 'lisp/doc-view.el')
| -rw-r--r-- | lisp/doc-view.el | 37 |
1 files changed, 19 insertions, 18 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 09d5925b3e2..42544851f6b 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -1621,24 +1621,25 @@ If BACKWARD is non-nil, jump to the previous match." "Figure out the current document type (`doc-view-doc-type')." (let ((name-types (when buffer-file-name - (cdr (assoc (file-name-extension buffer-file-name) - '( - ;; DVI - ("dvi" dvi) - ;; PDF - ("pdf" pdf) ("epdf" pdf) - ;; PostScript - ("ps" ps) ("eps" ps) - ;; DjVu - ("djvu" djvu) - ;; OpenDocument formats - ("odt" odf) ("ods" odf) ("odp" odf) ("odg" odf) - ("odc" odf) ("odi" odf) ("odm" odf) ("ott" odf) - ("ots" odf) ("otp" odf) ("otg" odf) - ;; Microsoft Office formats (also handled - ;; by the odf conversion chain) - ("doc" odf) ("docx" odf) ("xls" odf) ("xlsx" odf) - ("ppt" odf) ("pptx" odf)))))) + (cdr (assoc-ignore-case + (file-name-extension buffer-file-name) + '( + ;; DVI + ("dvi" dvi) + ;; PDF + ("pdf" pdf) ("epdf" pdf) + ;; PostScript + ("ps" ps) ("eps" ps) + ;; DjVu + ("djvu" djvu) + ;; OpenDocument formats. + ("odt" odf) ("ods" odf) ("odp" odf) ("odg" odf) + ("odc" odf) ("odi" odf) ("odm" odf) ("ott" odf) + ("ots" odf) ("otp" odf) ("otg" odf) + ;; Microsoft Office formats (also handled by the odf + ;; conversion chain). + ("doc" odf) ("docx" odf) ("xls" odf) ("xlsx" odf) + ("ppt" odf) ("pps" odf) ("pptx" odf)))))) (content-types (save-excursion (goto-char (point-min)) |