Mercurial > emacs

diff lisp/image-file.el @ 34074:89fcace178df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 242c7cbf0a6b
children 795aabd40afe
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