[Emacs-diffs] trunk r116977: * lisp/doc-view.el (doc-view-set-doc-type): Ignore file name case; add .pps.

[Stefan Monnier]

------------------------------------------------------------
revno: 116977
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2014-04-14 17:01:37 -0400
message:
  * lisp/doc-view.el (doc-view-set-doc-type): Ignore file name case; add .pps.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/doc-view.el               docview.el-20091113204419-o5vbwnq5f7feedwu-6334

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-04-14 15:38:43 +0000
+++ b/lisp/ChangeLog    2014-04-14 21:01:37 +0000
@@ -1,3 +1,7 @@
+2014-04-14  Stefan Monnier  <address@hidden>
+
+       * doc-view.el (doc-view-set-doc-type): Ignore file name case; add .pps.
+
 2014-04-14  Juanma Barranquero  <address@hidden>
 
        * faces.el (face-set-after-frame-default): Remove unused local variable.

=== modified file 'lisp/doc-view.el'
--- a/lisp/doc-view.el  2014-04-04 17:42:55 +0000
+++ b/lisp/doc-view.el  2014-04-14 21:01:37 +0000
@@ -1621,24 +1621,25 @@
   "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))