Mercurial > emacs

comparison lisp/image.el @ 75115:1ec77a44faf9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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