diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2016-09-04 11:09:31 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2016-09-04 11:09:31 +0900 |
| commit | 2db3307e8a966a8f652a210d8f8eb83daddd7d9f (patch) | |
| tree | 053f5bbe8b3be9c893b3267e519fd9cc91fe0191 /lisp/image.el | |
| parent | 7c16c89c5772a1777e4d73ebc5ea2a3ff8344c22 (diff) | |
| download | emacs-2db3307e8a966a8f652a210d8f8eb83daddd7d9f.tar.gz | |
image-type-from-file-name: Perform a case insensitive match
Fix Bug#24317
* lisp/image.el (image-type-from-file-name): Bind case-fold-search
to a non-nil value to force a case insensitive match.
* lisp/image-dired.el (image-dired-rotate-original):
Use image-type (Bug#24317).
(image-dired-get-exif-file-name): Idem.
Set 'no-exif-data-found' and 'data' in same setq call.
Use file-attribute-modification-time.
Diffstat (limited to 'lisp/image.el')
| -rw-r--r-- | lisp/image.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/image.el b/lisp/image.el index 791a902a1b9..e1f52de8be5 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -343,7 +343,7 @@ be determined." "Determine the type of image file FILE from its name. Value is a symbol specifying the image type, or nil if type cannot be determined." - (let (type first) + (let (type first (case-fold-search t)) (catch 'found (dolist (elem image-type-file-name-regexps first) (when (string-match-p (car elem) file) |