Mercurial > emacs

comparison lisp/image.el @ 38794:47ae93b5ab9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(image-jpeg-p): Fix call of substring.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 13 Aug 2001 10:16:16 +0000
parents a679a282d5cb
children afaef792868d
comparison
equal deleted inserted replaced
38793:4800b18d484f 38794:47ae93b5ab9f
62 (aref data (+ i 2)))) 62 (aref data (+ i 2))))
63 (code (aref data i))) 63 (code (aref data i)))
64 (when (and (>= code #xe0) (<= code #xef)) 64 (when (and (>= code #xe0) (<= code #xef))
65 ;; APP0 LEN1 LEN2 "JFIF\0" 65 ;; APP0 LEN1 LEN2 "JFIF\0"
66 (throw 'jfif 66 (throw 'jfif
67 (string-match "JFIF" (substring data i nbytes)))) 67 (string-match "JFIF" (substring data i (+ i nbytes)))))
68 (setq i (+ i 1 nbytes)))))))) 68 (setq i (+ i 1 nbytes))))))))
69 69
70 70
71 ;;;###autoload 71 ;;;###autoload
72 (defun image-type-from-data (data) 72 (defun image-type-from-data (data)