Mercurial > hg > xemacs-beta

comparison lisp/glyphs.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents abe6d1db359e
children f8db302d6298
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
1021 ;; the following. I have no idea if this is standard. 1021 ;; the following. I have no idea if this is standard.
1022 ,@(if (featurep 'jpeg) '(("\\`\377\330\377\340\000\020JFIF" 1022 ,@(if (featurep 'jpeg) '(("\\`\377\330\377\340\000\020JFIF"
1023 [jpeg :data nil] 2))) 1023 [jpeg :data nil] 2)))
1024 ,@(if (featurep 'png) '(("\\.png\\'" [png :file nil] 2))) 1024 ,@(if (featurep 'png) '(("\\.png\\'" [png :file nil] 2)))
1025 ,@(if (featurep 'png) '(("\\`\211PNG" [png :data nil] 2))) 1025 ,@(if (featurep 'png) '(("\\`\211PNG" [png :data nil] 2)))
1026 ("" [autodetect :data nil] 2)))) 1026 ("" [string :data nil] 2)
1027 ("" [nothing]))))
1027 ;; #### this should really be formatted-string, not string but we 1028 ;; #### this should really be formatted-string, not string but we
1028 ;; don't have it implemented yet 1029 ;; don't have it implemented yet
1029 ;; 1030 ;;
1030 ;; #define could also mean a bitmap as well as a version 1 XPM. Who 1031 ;; #define could also mean a bitmap as well as a version 1 XPM. Who
1031 ;; cares. We don't want the file contents getting converted to a 1032 ;; cares. We don't want the file contents getting converted to a