martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(image-jpeg-p): Accept "Exif" marker.

Browse Source
This commit is contained in:
Richard M. Stallman
2002-08-05 16:26:03 +00:00
parent 241f79af81
commit 9b78a6a3c4
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/image.el
View File

@@ -50,7 +50,8 @@ a non-nil value, TYPE is the image's type ")
(defun image-jpeg-p (data)
"Value is non-nil if DATA, a string, consists of JFIF image data."
"Value is non-nil if DATA, a string, consists of JFIF image data.
We accept the tag Exif because that is the same format."
(when (string-match "\\`\xff\xd8" data)
(catch 'jfif
(let ((len (length data)) (i 2))
@@ -66,7 +67,7 @@ a non-nil value, TYPE is the image's type ")
(when (and (>= code #xe0) (<= code #xef))
;; APP0 LEN1 LEN2 "JFIF\0"
(throw 'jfif
(string-match "JFIF" (substring data i (+ i nbytes)))))
(string-match "JFIF\\|Exif" (substring data i (+ i nbytes)))))
(setq i (+ i 1 nbytes))))))))