# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1168037647 0
# Node ID 1ec77a44faf9ed6616e61833d399832ef493699d
# Parent  4dfbb3fb7f61f01261332326c83538b81888a12e
(image-type-header-regexps): Recognize xbm more strictly.

diff -r 4dfbb3fb7f61 -r 1ec77a44faf9 lisp/image.el
--- a/lisp/image.el	Fri Jan 05 20:24:50 2007 +0000
+++ b/lisp/image.el	Fri Jan 05 22:54:07 2007 +0000
@@ -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)))