Mercurial > hg > xemacs-beta

comparison lisp/about.el @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents 558f606b08ae
children 4b85ae5eabfb
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
563 `([string :data "[Image]"])))) 563 `([string :data "[Image]"]))))
564 ((eq data 'error) 564 ((eq data 'error)
565 (make-glyph [string :data "[Error]"])) 565 (make-glyph [string :data "[Error]"]))
566 (file 566 (file
567 (make-glyph 567 (make-glyph
568 (if (featurep 'xbm) 568 (if (featurep 'xpm)
569 `([xbm :data ,data] 569 `([xpm :file ,file]
570 [string :data "[Image]"]) 570 [string :data "[Image]"])
571 `([string :data "[Image]"])))) 571 `([string :data "[Image]"]))))
572 (t 572 (t
573 (make-glyph [nothing])))) 573 (make-glyph [nothing]))))
574 (set-glyph-property glyph 'baseline 100) 574 (set-glyph-property glyph 'baseline 100)