Mercurial > emacs

comparison lisp/image.el @ 99876:e8248a7b666d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(image-type-header-regexps): Recognize more xbm format variants.
author Andreas Schwab <schwab@suse.de>
date Mon, 24 Nov 2008 17:21:57 +0000
parents 044f3969e191
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
99875:3658bfd115cd 99876:e8248a7b666d
34 (defconst image-type-header-regexps 34 (defconst image-type-header-regexps
35 `(("\\`/[\t\n\r ]*\\*.*XPM.\\*/" . xpm) 35 `(("\\`/[\t\n\r ]*\\*.*XPM.\\*/" . xpm)
36 ("\\`P[1-6][[:space:]]+\\(?:#.*[[:space:]]+\\)*[0-9]+[[:space:]]+[0-9]+" . pbm) 36 ("\\`P[1-6][[:space:]]+\\(?:#.*[[:space:]]+\\)*[0-9]+[[:space:]]+[0-9]+" . pbm)
37 ("\\`GIF8[79]a" . gif) 37 ("\\`GIF8[79]a" . gif)
38 ("\\`\x89PNG\r\n\x1a\n" . png) 38 ("\\`\x89PNG\r\n\x1a\n" . png)
39 ("\\`[\t\n\r ]*#define \\([a-z0-9]+\\)_width [0-9]+\n\ 39 ("\\`[\t\n\r ]*#define \\([a-z0-9_]+\\)_width [0-9]+\n\
40 #define \\1_height [0-9]+\n\ 40 #define \\1_height [0-9]+\n\\(\
41 static char \\1_bits" . xbm) 41 #define \\1_x_hot [0-9]+\n\
42 #define \\1_y_hot [0-9]+\n\\)?\
43 static \\(unsigned \\)?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 (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)") 47 (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)")
46 (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\r\n]*<\\)"))) 48 (comment-re (concat "\\(?:!--" incomment-re "*-->[ \t\r\n]*<\\)")))