(image-type-header-regexps): Recognize xbm more strictly.

2dca7106 · Richard M. Stallman · 654ec269 · 2dca7106 · 2dca7106
Commit 2dca7106 authored Jan 05, 2007 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +2 -0

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

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 2007-01-05  Richard Stallman  <rms@gnu.org>
  
+	* image.el (image-type-header-regexps): Recognize xbm more strictly.
+
 	* simple.el (backward-kill-word): Doc fix.
  
 2007-01-05  Romain Francoise  <romain@orebokech.com>
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -38,7 +38,9 @@
    ("\\`P[1-6][[:space:]]+\\(?:#.*[[:space:]]+\\)*[0-9]+[[:space:]]+[0-9]+" . pbm)
    ("\\`GIF8" . gif)
    ("\\`\x89PNG\r\n\x1a\n" . png)
-    ("\\`[\t\n\r ]*#define" . xbm)
+    ("\\`[\t\n\r ]*#define \\([a-z0-9]+\\)_width [0-9]+\n\
+#define \\1_height [0-9]+\n\
+static char \\1_bits" . xbm)
    ("\\`\\(?:MM\0\\*\\|II\\*\0\\)" . tiff)
    ("\\`[\t\n\r ]*%!PS" . postscript)
    ("\\`\xff\xd8" . (image-jpeg-p . jpeg)))