(image-type-header-regexps): Make GIF regex more specific.

3205431d · Richard M. Stallman · 7378b2f9 · 3205431d
Commit 3205431d authored Jan 28, 2007 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

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

No files found.
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -36,7 +36,7 @@
 (defconst image-type-header-regexps
  '(("\\`/[\t\n\r ]*\\*.*XPM.\\*/" . xpm)
    ("\\`P[1-6][[:space:]]+\\(?:#.*[[:space:]]+\\)*[0-9]+[[:space:]]+[0-9]+" . pbm)
-    ("\\`GIF8" . gif)
+    ("\\`GIF8[79]a" . gif)
    ("\\`\x89PNG\r\n\x1a\n" . png)
    ("\\`[\t\n\r ]*#define \\([a-z0-9]+\\)_width [0-9]+\n\
 #define \\1_height [0-9]+\n\