Mercurial > hg > xemacs-beta

comparison lisp/prim/glyphs.el @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 43dd3413c7c7
children acd284d43ca1
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
609 ,@(if (featurep 'gif) '(("\\.gif\\'" [gif :file nil] 2))) 609 ,@(if (featurep 'gif) '(("\\.gif\\'" [gif :file nil] 2)))
610 ,@(if (featurep 'gif) '(("\\`GIF8[79]" [gif :data nil] 2))) 610 ,@(if (featurep 'gif) '(("\\`GIF8[79]" [gif :data nil] 2)))
611 ,@(if (featurep 'jpeg) '(("\\.jpe?g\\'" [jpeg :file nil] 2))) 611 ,@(if (featurep 'jpeg) '(("\\.jpe?g\\'" [jpeg :file nil] 2)))
612 ;; all of the JFIF-format JPEG's that I've seen begin with 612 ;; all of the JFIF-format JPEG's that I've seen begin with
613 ;; the following. I have no idea if this is standard. 613 ;; the following. I have no idea if this is standard.
614 ,@(if (featurep 'jpeg) '(("\\`\377\330\340\000\020JFIF" 614 ,@(if (featurep 'jpeg) '(("\\`\377\330\377\340\000\020JFIF"
615 [jpeg :data nil] 2))) 615 [jpeg :data nil] 2)))
616 ,@(if (featurep 'png) '(("\\.png\\'" [png :file nil] 2))) 616 ,@(if (featurep 'png) '(("\\.png\\'" [png :file nil] 2)))
617 ,@(if (featurep 'png) '(("\\`\211PNG" [png :data nil] 2))) 617 ,@(if (featurep 'png) '(("\\`\211PNG" [png :data nil] 2)))
618 ("" [autodetect :data nil] 2)))) 618 ("" [autodetect :data nil] 2))))
619 ;; #### this should really be formatted-string, not string but we 619 ;; #### this should really be formatted-string, not string but we