Mercurial > hg > xemacs-beta

comparison lisp/prim/glyphs.el @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
7:c153ca296910 8:4b173ad71786
630 ;; because it has a built-in bitmap 630 ;; because it has a built-in bitmap
631 (set-glyph-image truncation-glyph "$" 'global 'tty) 631 (set-glyph-image truncation-glyph "$" 'global 'tty)
632 632
633 ;; finish initializing continuation glyph -- created internally 633 ;; finish initializing continuation glyph -- created internally
634 ;; because it has a built-in bitmap 634 ;; because it has a built-in bitmap
635 (set-glyph-image continuation-glyph "\\" 'global 'tty))) 635 (set-glyph-image continuation-glyph "\\" 'global 'tty)
636
637 ;; finish initializing continuation glyph -- created internally
638 ;; because it has a built-in bitmap
639 (set-glyph-image hscroll-glyph "$" 'global 'tty)))
636 640
637 (set-glyph-image octal-escape-glyph "\\") 641 (set-glyph-image octal-escape-glyph "\\")
638 (set-glyph-image control-arrow-glyph "^") 642 (set-glyph-image control-arrow-glyph "^")
639 (set-glyph-image invisible-text-glyph " ...") 643 (set-glyph-image invisible-text-glyph " ...")
640 (set-glyph-image hscroll-glyph "$") 644 ;; (set-glyph-image hscroll-glyph "$")
641 645
642 ;; finish initializing xemacs logo -- created internally because it 646 ;; finish initializing xemacs logo -- created internally because it
643 ;; has a built-in bitmap 647 ;; has a built-in bitmap
644 (if (featurep 'xpm) 648 (if (featurep 'xpm)
645 (set-glyph-image xemacs-logo 649 (set-glyph-image xemacs-logo