Mercurial > hg > xemacs-beta

comparison lisp/glyphs.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 558f606b08ae
children 70ad99077275
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
658 (set-glyph-image octal-escape-glyph "\\") 658 (set-glyph-image octal-escape-glyph "\\")
659 (set-glyph-image control-arrow-glyph "^") 659 (set-glyph-image control-arrow-glyph "^")
660 (set-glyph-image invisible-text-glyph " ...") 660 (set-glyph-image invisible-text-glyph " ...")
661 ;; (set-glyph-image hscroll-glyph "$") 661 ;; (set-glyph-image hscroll-glyph "$")
662 662
663 (let ((face (make-face 'border-glyph
664 "Truncation and continuation glyphs face")))
665 (set-glyph-face continuation-glyph face)
666 (set-glyph-face truncation-glyph face)
667 (set-glyph-face hscroll-glyph face))
668
663 ;; finish initializing xemacs logo -- created internally because it 669 ;; finish initializing xemacs logo -- created internally because it
664 ;; has a built-in bitmap 670 ;; has a built-in bitmap
665 (if (featurep 'xpm) 671 (if (featurep 'xpm)
666 (set-glyph-image xemacs-logo 672 (set-glyph-image xemacs-logo
667 (concat "../etc/" 673 (concat "../etc/"