Mercurial > hg > xemacs-beta

comparison lisp/prim/glyphs.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 54cc21c15cbb
children 8619ce7e4c50
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
597 (set-console-type-image-conversion-list 'x 597 (set-console-type-image-conversion-list 'x
598 `(,@(if (featurep 'xpm) '(("\.xpm$" [xpm :file nil] 2))) 598 `(,@(if (featurep 'xpm) '(("\.xpm$" [xpm :file nil] 2)))
599 ,@(if (featurep 'xpm) '(("^/\\* XPM \\*/" [xpm :data nil] 2))) 599 ,@(if (featurep 'xpm) '(("^/\\* XPM \\*/" [xpm :data nil] 2)))
600 ,@(if (featurep 'xface) '(("^X-Face:" [xface :data nil] 2))) 600 ,@(if (featurep 'xface) '(("^X-Face:" [xface :data nil] 2)))
601 ,@(if (featurep 'gif) '(("\.gif$" [gif :file nil] 2))) 601 ,@(if (featurep 'gif) '(("\.gif$" [gif :file nil] 2)))
602 ,@(if (featurep 'gif) '(("^GIF87" [gif :data nil] 2))) 602 ,@(if (featurep 'gif) '(("^GIF8[79]" [gif :data nil] 2)))
603 ,@(if (featurep 'jpeg) '(("\.jpeg$" [jpeg :file nil] 2))) 603 ,@(if (featurep 'jpeg) '(("\.jpeg$" [jpeg :file nil] 2)))
604 ,@(if (featurep 'jpeg) '(("\.jpg$" [jpeg :file nil] 2))) 604 ,@(if (featurep 'jpeg) '(("\.jpg$" [jpeg :file nil] 2)))
605 ;; all of the JFIF-format JPEG's that I've seen begin with 605 ;; all of the JFIF-format JPEG's that I've seen begin with
606 ;; the following. I have no idea if this is standard. 606 ;; the following. I have no idea if this is standard.
607 ,@(if (featurep 'jpeg) '(("^\377\330\340\000\020JFIF" 607 ,@(if (featurep 'jpeg) '(("^\377\330\340\000\020JFIF"
608 [jpeg :data nil] 2))) 608 [jpeg :data nil] 2)))
609 ,@(if (featurep 'png) '(("\.png$" [png :file nil] 2)))
610 ,@(if (featurep 'png) '(("^\211PNG" [png :data nil] 2)))
609 ("" [autodetect :data nil] 2)))) 611 ("" [autodetect :data nil] 2))))
610 ;; #### this should really be formatted-string, not string but we 612 ;; #### this should really be formatted-string, not string but we
611 ;; don't have it implemented yet 613 ;; don't have it implemented yet
612 ;; 614 ;;
613 ;; #define could also mean a bitmap as well as a version 1 XPM. Who 615 ;; #define could also mean a bitmap as well as a version 1 XPM. Who