(image-type-regexps): For JPEG files, use a regexp

derived from the JPEG spec.

(image-type-regexps): For JPEG files, use a regexp
derived from the JPEG spec.
1155d483 · Gerd Moellmann · 69ebef1d · 1155d483 · 1155d483
Commit 1155d483 authored Aug 07, 2001 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +3 -0

lisp/image.el lisp/image.el +2 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 2001-08-07  Gerd Moellmann  <gerd@gnu.org>
  
+	* image.el (image-type-regexps): For JPEG files, use a regexp
+	derived from the JPEG spec.
+	
 	* image.el (image-type-regexps): Use `\`' instead of `^' in
 	most regular expressions.
  

--- a/lisp/image.el
+++ b/lisp/image.el
@@ -34,7 +34,8 @@
  '(("\\`/\\*.*XPM.\\*/" . xpm)
    ("\\`P[1-6]" . pbm)
    ("\\`GIF8" . gif)
-    ("JFIF" . jpeg)
+    ;; The following is from JPEG File Interchange Format, Version 1.02.
+    ("\\`\xff\xd8\xff\xe0..JFIF\0" . jpeg)
    ("\\`\211PNG\r\n" . png)
    ("\\`#define" . xbm)
    ("\\`\\(MM\0\\*\\)\\|\\(II\\*\0\\)" . tiff)