Mercurial > hg > xemacs-beta

comparison lisp/prim/glyphs.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children 0d2f883870bc
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
631 ;; because it has a built-in bitmap 631 ;; because it has a built-in bitmap
632 (set-glyph-image truncation-glyph "$" 'global 'tty) 632 (set-glyph-image truncation-glyph "$" 'global 'tty)
633 633
634 ;; finish initializing continuation glyph -- created internally 634 ;; finish initializing continuation glyph -- created internally
635 ;; because it has a built-in bitmap 635 ;; because it has a built-in bitmap
636 (set-glyph-image continuation-glyph "\\" 'global 'tty))) 636 (set-glyph-image continuation-glyph "\\" 'global 'tty)
637
638 ;; finish initializing hscroll glyph -- created internally
639 ;; because it has a built-in bitmap
640 (set-glyph-image hscroll-glyph "$" 'global 'tty)))
637 641
638 (set-glyph-image octal-escape-glyph "\\") 642 (set-glyph-image octal-escape-glyph "\\")
639 (set-glyph-image control-arrow-glyph "^") 643 (set-glyph-image control-arrow-glyph "^")
640 (set-glyph-image invisible-text-glyph " ...") 644 (set-glyph-image invisible-text-glyph " ...")
641 (set-glyph-image hscroll-glyph "$") 645 ;; (set-glyph-image hscroll-glyph "$")
642 646
643 ;; finish initializing xemacs logo -- created internally because it 647 ;; finish initializing xemacs logo -- created internally because it
644 ;; has a built-in bitmap 648 ;; has a built-in bitmap
645 (if (featurep 'xpm) 649 (if (featurep 'xpm)
646 (set-glyph-image xemacs-logo 650 (set-glyph-image xemacs-logo