[Emacs-diffs] Changes to emacs/lisp/image.el

[Richard M. Stallman]

Index: emacs/lisp/image.el
diff -c emacs/lisp/image.el:1.31 emacs/lisp/image.el:1.32
*** emacs/lisp/image.el:1.31    Mon Mar 11 08:32:22 2002
--- emacs/lisp/image.el Mon Aug  5 12:26:03 2002
***************
*** 50,56 ****
  
  
  (defun image-jpeg-p (data)
!   "Value is non-nil if DATA, a string, consists of JFIF image data."
    (when (string-match "\\`\xff\xd8" data)
      (catch 'jfif
        (let ((len (length data)) (i 2))
--- 50,57 ----
  
  
  (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."
    (when (string-match "\\`\xff\xd8" data)
      (catch 'jfif
        (let ((len (length data)) (i 2))
***************
*** 66,72 ****
            (when (and (>= code #xe0) (<= code #xef))
              ;; APP0 LEN1 LEN2 "JFIF\0"
              (throw 'jfif 
!                    (string-match "JFIF" (substring data i (+ i nbytes)))))
            (setq i (+ i 1 nbytes))))))))
  
  
--- 67,73 ----
            (when (and (>= code #xe0) (<= code #xef))
              ;; APP0 LEN1 LEN2 "JFIF\0"
              (throw 'jfif 
!                    (string-match "JFIF\\|Exif" (substring data i (+ i 
nbytes)))))
            (setq i (+ i 1 nbytes))))))))