Mercurial > emacs
diff lisp/image.el @ 38794:47ae93b5ab9f
(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 |
line wrap: on
line diff
--- a/lisp/image.el Mon Aug 13 09:52:55 2001 +0000 +++ b/lisp/image.el Mon Aug 13 10:16:16 2001 +0000 @@ -64,7 +64,7 @@ (when (and (>= code #xe0) (<= code #xef)) ;; APP0 LEN1 LEN2 "JFIF\0" (throw 'jfif - (string-match "JFIF" (substring data i nbytes)))) + (string-match "JFIF" (substring data i (+ i nbytes))))) (setq i (+ i 1 nbytes))))))))