(image-file-name-regexp): Automatically add upper-case variants of each

filename extension in `image-file-name-extensions', since they seem to
be common.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee1eddc4d3dcf8fefd7e9d8b5edc0e86a2fc1fcd..4b982c0855a61b73ee202f382fc053dc98832c0c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2000-12-01  Miles Bader  <miles@gnu.org>
 
+       * image-file.el (image-file-name-regexp): Automatically add
+       upper-case variants of each filename extension in
+       `image-file-name-extensions', since they seem to be common.
+
        * simple.el (minibuffer-contents) 
        (minibuffer-contents-no-properties, delete-minibuffer-contents):
        New functions.

diff --git a/lisp/image-file.el b/lisp/image-file.el
index f8da174364bee48738bd7db971b5aa36011b1be1..ef667085eacab69f06eb91f433a58d49b4f6bf59 100644 (file)
--- a/lisp/image-file.el
+++ b/lisp/image-file.el
@@ -82,7 +82,10 @@ variable is set using \\[customize]."
   (let ((exts-regexp
         (and image-file-name-extensions
              (concat "\\."
-                     (regexp-opt image-file-name-extensions t)
+                     (regexp-opt (nconc (mapcar #'upcase
+                                                image-file-name-extensions)
+                                        image-file-name-extensions)
+                                 t)
                      "\\'"))))
     (if image-file-name-regexps
        (mapconcat 'identity