andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(image-type-header-regexps): Recognize more xbm format

Browse source 
variants.
This commit is contained in:
Andreas Schwab 2008-11-24 17:21:57 +00:00
parent 98d92ce3e7
commit fa4354c117
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-11-24 Andreas Schwab <schwab@suse.de>
* image.el (image-type-header-regexps): Recognize more xbm format
variants.
2008-11-24 Juanma Barranquero <lekktu@gmail.com>
* textmodes/artist.el (artist-charlist-to-string): Simplify.

8
lisp/image.el
View file

@ -36,9 +36,11 @@
("\\`P[1-6][[:space:]]+\\(?:#.*[[:space:]]+\\)*[0-9]+[[:space:]]+[0-9]+" . pbm)
("\\`GIF8[79]a" . gif)
("\\`\x89PNG\r\n\x1a\n" . png)
("\\`[\t\n\r ]*#define \\([a-z0-9]+\\)_width [0-9]+\n\
#define \\1_height [0-9]+\n\
static char \\1_bits" . xbm)
("\\`[\t\n\r ]*#define \\([a-z0-9_]+\\)_width [0-9]+\n\
#define \\1_height [0-9]+\n\\(\
#define \\1_x_hot [0-9]+\n\
#define \\1_y_hot [0-9]+\n\\)?\
static \\(unsigned \\)?char \\1_bits" . xbm)
("\\`\\(?:MM\0\\*\\|II\\*\0\\)" . tiff)
("\\`[\t\n\r ]*%!PS" . postscript)
("\\`\xff\xd8" . (image-jpeg-p . jpeg))