Mercurial > hg > xemacs-beta

comparison lisp/prim/glyphs.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents cca96a509cfe
children 43dd3413c7c7
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
607 ;; the following. I have no idea if this is standard. 607 ;; the following. I have no idea if this is standard.
608 ,@(if (featurep 'jpeg) '(("^\377\330\340\000\020JFIF" 608 ,@(if (featurep 'jpeg) '(("^\377\330\340\000\020JFIF"
609 [jpeg :data nil] 2))) 609 [jpeg :data nil] 2)))
610 ,@(if (featurep 'png) '(("\.png$" [png :file nil] 2))) 610 ,@(if (featurep 'png) '(("\.png$" [png :file nil] 2)))
611 ,@(if (featurep 'png) '(("^\211PNG" [png :data nil] 2))) 611 ,@(if (featurep 'png) '(("^\211PNG" [png :data nil] 2)))
612 ("" [automatic-conversion :data nil] 2)))) 612 ("" [autodetect :data nil] 2))))
613 ;; #### this should really be formatted-string, not string but we 613 ;; #### this should really be formatted-string, not string but we
614 ;; don't have it implemented yet 614 ;; don't have it implemented yet
615 ;; 615 ;;
616 ;; #define could also mean a bitmap as well as a version 1 XPM. Who 616 ;; #define could also mean a bitmap as well as a version 1 XPM. Who
617 ;; cares. We don't want the file contents getting converted to a 617 ;; cares. We don't want the file contents getting converted to a