changeset 34074:89fcace178df

(image-file-name-regexp): Automatically add upper-case variants of each filename extension in `image-file-name-extensions', since they seem to be common.
author Miles Bader <miles@gnu.org>
date Fri, 01 Dec 2000 04:35:54 +0000
parents e07466f681ae
children acd6c59d5036
files lisp/image-file.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/image-file.el	Fri Dec 01 03:35:56 2000 +0000
+++ b/lisp/image-file.el	Fri Dec 01 04:35:54 2000 +0000
@@ -82,7 +82,10 @@
   (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