Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/glyphs.el	Mon Aug 13 10:34:15 2007 +0200
+++ b/lisp/glyphs.el	Mon Aug 13 10:35:03 2007 +0200
@@ -660,6 +660,12 @@
   (set-glyph-image invisible-text-glyph " ...")
   ;; (set-glyph-image hscroll-glyph "$")
 
+  (let ((face (make-face 'border-glyph
+			 "Truncation and continuation glyphs face")))
+    (set-glyph-face continuation-glyph face)
+    (set-glyph-face truncation-glyph face)
+    (set-glyph-face hscroll-glyph face))
+
   ;; finish initializing xemacs logo -- created internally because it
   ;; has a built-in bitmap
   (if (featurep 'xpm)