summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVisuwesh <visuweshm@gmail.com>2023-04-12 19:17:23 +0530
committerEli Zaretskii <eliz@gnu.org>2023-04-12 20:04:26 +0300
commit17d803d0a7545db360c917e576aa77cea10a9b29 (patch)
tree35c49a9783b138e6c97e34b1a2c1209785ac27bb
parent43290391ce2d870f5b63be09aa97c5bc906a33aa (diff)
downloademacs-17d803d0a7545db360c917e576aa77cea10a9b29.tar.gz
Fix detection of WebP images by their signature
* lisp/image.el (image-type-header-regexps): The 4 characters between "RIFF" and "WEBP" in WebP images can also be newlines. (Bug#62790)
-rw-r--r--lisp/image.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/image.el b/lisp/image.el
index 6a8293fedf3..104fea407ff 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -51,7 +51,7 @@ static \\(unsigned \\)?char \\1_bits" . xbm)
("\\`\\(?:MM\0\\*\\|II\\*\0\\)" . tiff)
("\\`[\t\n\r ]*%!PS" . postscript)
("\\`\xff\xd8" . jpeg) ; used to be (image-jpeg-p . jpeg)
- ("\\`RIFF....WEBPVP8" . webp)
+ ("\\`RIFF[^z-a][^z-a][^z-a][^z-a]WEBPVP8" . webp)
(,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)")
(comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\r\n]*<\\)")))
(concat "\\(?:<\\?xml[ \t\r\n]+[^>]*>\\)?[ \t\r\n]*<"