Mercurial > hg > xemacs-beta
diff lisp/glyphs.el @ 4818:1360b0c147c1
Handle bitmap files in bitmap directory properly
| author | Didier Verna <didier@lrde.epita.fr> |
|---|---|
| date | Sat, 09 Jan 2010 17:35:51 +0100 |
| parents | 1cecc3e9f0a0 |
| children | 308d34e9f07d |
line wrap: on
line diff
--- a/lisp/glyphs.el Sat Jan 09 14:55:13 2010 +0000 +++ b/lisp/glyphs.el Sat Jan 09 17:35:51 2010 +0100 @@ -1142,7 +1142,8 @@ (if (featurep 'x) (set-console-type-image-conversion-list 'x `(,@(if (featurep 'xpm) '(("\\.xpm\\'" [xpm :file nil] 2))) - ("\\.xbm\\'" [xbm :file nil] 2) + ("\\.xbm\\'" [xbm :file nil] 2) + ("/bitmaps/" [xbm :file nil] 2) ,@(if (featurep 'xpm) '(("\\`/\\* XPM \\*/" [xpm :data nil] 2))) ,@(if (featurep 'xface) '(("\\`X-Face:" [xface :data nil] 2))) ,@(if (featurep 'gif) '(("\\.gif\\'" [gif :file nil] 2) @@ -1164,6 +1165,7 @@ 'tty '(("\\.xpm\\'" [string :data nil] 2) ("\\.xbm\\'" [string :data nil] 2) + ("/bitmaps/" [string :data nil] 2) ;; #define could also mean a bitmap as well as a version 1 XPM. Who ;; cares. ("^#define" [string :data "[xpm]"])