(image-jpeg-p): Convert DATA to unibyte at first.

diff --git a/lisp/image.el b/lisp/image.el
index 4969f8a..7dfa0d4 100644 (file)
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -208,6 +208,7 @@ compatibility with versions of Emacs that lack the variable
 (defun image-jpeg-p (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."
+  (setq data (string-to-unibyte data))
   (when (string-match "\\`\xff\xd8" data)
     (catch 'jfif
       (let ((len (length data)) (i 2))