image.el: patch to recognize Exif as well as JFIF jpg image files

[Matt Swift]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.2.1 (i386-msvc-nt5.0.2195)
 of 2002-03-19 on buffy
configured using `configure --with-msvc (12.00)'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

*** image.el.orig       Thu Aug  1 21:09:16 2002
--- image.el    Thu Aug  1 21:16:50 2002
***************
*** 64,70 ****
            (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))))))))


--- 64,70 ----
            (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))))))))




Recent input:
M-z M-z M-z <switch-frame> C-x k C-x k C-x k C-x k 
C-x k C-x k C-x k C-x k C-x k C-x k C-x k C-x k C-x 
k C-x k C-x k C-x k C-/ SPC C-/ C-/ C-x C-s C-x k M-z 
M-z M-z <switch-frame> C-x b t o d o - g <tab> <return> 
<help-echo> <switch-frame> C-x b C-g <help-echo> C-x 
b t o d o b <backspace> = - b <backspace> <backspace> 
<backspace> - b u y <tab> <return> M-x r e o r <backspace> 
<backspace> p o r t - e m <tab> <return>

Recent messages:
Mark set
Reading directory /[rsync/swift@vav]/cygdrive/c/Program Files/Resource 
Kit/...done
Omitting...
Omitted 2 lines.
Copy [-p]: 1 of 1
Copy [-p]: 1 file
Undo! [3 times]
Wrote g:/swift/lib/emacs/lisp/swift-dired.el
Quit
Loading emacsbug...done