summaryrefslogtreecommitdiff
path: root/lisp/image.el
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-08-13 10:16:16 +0000
committerGerd Moellmann <gerd@gnu.org>2001-08-13 10:16:16 +0000
commit26d0c82c1ae6fd8c0b80ff03031db26503d71c64 (patch)
treeb2569e016437de94a4930ec83b3e43169de09447 /lisp/image.el
parent6d004fea41c6bcc9cea3730b50d7ccaba5d164c3 (diff)
downloademacs-26d0c82c1ae6fd8c0b80ff03031db26503d71c64.tar.gz
(image-jpeg-p): Fix call of substring.
Diffstat (limited to 'lisp/image.el')
-rw-r--r--lisp/image.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/image.el b/lisp/image.el
index f08db3879b1..f7ab77379dc 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -64,7 +64,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 nbytes))))
+ (string-match "JFIF" (substring data i (+ i nbytes)))))
(setq i (+ i 1 nbytes))))))))