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

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

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee1eddc4d3d..4b982c0855a 100644
--- 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 f8da174364b..ef667085eac 100644
--- 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