Mercurial > hg > xemacs-beta
diff lisp/prim/glyphs.el @ 195:a2f645c6b9f8 r20-3b24
Import from CVS: tag r20-3b24
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:59:05 +0200 |
parents | 43dd3413c7c7 |
children | acd284d43ca1 |
line wrap: on
line diff
--- a/lisp/prim/glyphs.el Mon Aug 13 09:58:32 2007 +0200 +++ b/lisp/prim/glyphs.el Mon Aug 13 09:59:05 2007 +0200 @@ -611,7 +611,7 @@ ,@(if (featurep 'jpeg) '(("\\.jpe?g\\'" [jpeg :file nil] 2))) ;; all of the JFIF-format JPEG's that I've seen begin with ;; the following. I have no idea if this is standard. - ,@(if (featurep 'jpeg) '(("\\`\377\330\340\000\020JFIF" + ,@(if (featurep 'jpeg) '(("\\`\377\330\377\340\000\020JFIF" [jpeg :data nil] 2))) ,@(if (featurep 'png) '(("\\.png\\'" [png :file nil] 2))) ,@(if (featurep 'png) '(("\\`\211PNG" [png :data nil] 2)))