Mercurial > hg > xemacs-beta

comparison lisp/prim/glyphs.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents a2f645c6b9f8
children e45d5e7c476e
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
655 655
656 ;; finish initializing xemacs logo -- created internally because it 656 ;; finish initializing xemacs logo -- created internally because it
657 ;; has a built-in bitmap 657 ;; has a built-in bitmap
658 (if (featurep 'xpm) 658 (if (featurep 'xpm)
659 (set-glyph-image xemacs-logo 659 (set-glyph-image xemacs-logo
660 (concat data-directory "xemacs.xpm") 660 (concat "../etc/" "xemacs.xpm")
661 'global 'x)) 661 'global 'x))
662 (cond ((featurep 'xpm) 662 (cond ((featurep 'xpm)
663 (set-glyph-image frame-icon-glyph 663 (set-glyph-image frame-icon-glyph
664 (concat data-directory "xemacs-icon.xpm") 664 (concat "../etc/" "xemacs-icon.xpm")
665 'global 'x)) 665 'global 'x))
666 ((featurep 'x) 666 ((featurep 'x)
667 (set-glyph-image frame-icon-glyph 667 (set-glyph-image frame-icon-glyph
668 (concat data-directory "xemacs-icon2.xbm") 668 (concat "../etc/" "xemacs-icon2.xbm")
669 'global 'x))) 669 'global 'x)))
670 670
671 (if (featurep 'tty) 671 (if (featurep 'tty)
672 (set-glyph-image xemacs-logo 672 (set-glyph-image xemacs-logo
673 "XEmacs <insert spiffy graphic logo here>" 673 "XEmacs <insert spiffy graphic logo here>"
674 'global 'tty)) 674 'global 'tty))
675 ) 675 )
676 676
677 (init-glyphs)
678
677 ;;; glyphs.el ends here. 679 ;;; glyphs.el ends here.