Permalink
Browse files

Downcase file extension in cacoo:get-image-type

  • Loading branch information...
1 parent c2e6a88 commit 19dcd7462b00a066d0d8105d9ce41082bb416764 @tkf committed Mar 19, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 cacoo.el
View
2 cacoo.el
@@ -389,7 +389,7 @@ larger than zero byte."
(defun cacoo:get-image-type (file)
"[internal] Return the image type as symbol. This function
guesses from the filename extension."
- (let ((type (intern (file-name-extension file))))
+ (let ((type (intern (downcase (file-name-extension file)))))
(cond
((eq type 'jpg) 'jpeg)
(t type))))

0 comments on commit 19dcd74

Please sign in to comment.