Mercurial > emacs
comparison lisp/image.el @ 75115:1ec77a44faf9
(image-type-header-regexps): Recognize xbm more strictly.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 05 Jan 2007 22:54:07 +0000 |
parents | 94afc7cac404 |
children | e3694f1cb928 |
comparison
equal
deleted
inserted
replaced
75114:4dfbb3fb7f61 | 75115:1ec77a44faf9 |
---|---|
36 (defconst image-type-header-regexps | 36 (defconst image-type-header-regexps |
37 '(("\\`/[\t\n\r ]*\\*.*XPM.\\*/" . xpm) | 37 '(("\\`/[\t\n\r ]*\\*.*XPM.\\*/" . xpm) |
38 ("\\`P[1-6][[:space:]]+\\(?:#.*[[:space:]]+\\)*[0-9]+[[:space:]]+[0-9]+" . pbm) | 38 ("\\`P[1-6][[:space:]]+\\(?:#.*[[:space:]]+\\)*[0-9]+[[:space:]]+[0-9]+" . pbm) |
39 ("\\`GIF8" . gif) | 39 ("\\`GIF8" . gif) |
40 ("\\`\x89PNG\r\n\x1a\n" . png) | 40 ("\\`\x89PNG\r\n\x1a\n" . png) |
41 ("\\`[\t\n\r ]*#define" . xbm) | 41 ("\\`[\t\n\r ]*#define \\([a-z0-9]+\\)_width [0-9]+\n\ |
42 #define \\1_height [0-9]+\n\ | |
43 static char \\1_bits" . xbm) | |
42 ("\\`\\(?:MM\0\\*\\|II\\*\0\\)" . tiff) | 44 ("\\`\\(?:MM\0\\*\\|II\\*\0\\)" . tiff) |
43 ("\\`[\t\n\r ]*%!PS" . postscript) | 45 ("\\`[\t\n\r ]*%!PS" . postscript) |
44 ("\\`\xff\xd8" . (image-jpeg-p . jpeg))) | 46 ("\\`\xff\xd8" . (image-jpeg-p . jpeg))) |
45 "Alist of (REGEXP . IMAGE-TYPE) pairs used to auto-detect image types. | 47 "Alist of (REGEXP . IMAGE-TYPE) pairs used to auto-detect image types. |
46 When the first bytes of an image file match REGEXP, it is assumed to | 48 When the first bytes of an image file match REGEXP, it is assumed to |