Mercurial > emacs
changeset 38776:a679a282d5cb
(image-jpeg-p): Test for APPn markers in the range
#xe0..#xef.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 10 Aug 2001 10:58:33 +0000 |
| parents | 4804dd409fcc |
| children | a83fdca83ae3 |
| files | lisp/image.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/image.el Fri Aug 10 09:24:29 2001 +0000 +++ b/lisp/image.el Fri Aug 10 10:58:33 2001 +0000 @@ -59,11 +59,12 @@ (when (>= (+ i 2) len) (throw 'jfif nil)) (let ((nbytes (+ (lsh (aref data (+ i 1)) 8) - (aref data (+ i 2))))) - (when (= (aref data i) #xe0) + (aref data (+ i 2)))) + (code (aref data i))) + (when (and (>= code #xe0) (<= code #xef)) ;; APP0 LEN1 LEN2 "JFIF\0" - (throw 'jfif (string-match "\\`\xe0..JFIF\0" - (substring data i (+ i 10))))) + (throw 'jfif + (string-match "JFIF" (substring data i nbytes)))) (setq i (+ i 1 nbytes))))))))