Commit b170205b authored by Miles Bader's avatar Miles Bader
Browse files

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

filename extension in `image-file-name-extensions', since they seem to
be common.
parent dea0a87d
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment