chiark / gitweb /
el/dot-emacs.el: Colour for continuation and truncation display marks.
authorMark Wooding <mdw@distorted.org.uk>
Sat, 7 Jan 2012 22:33:05 +0000 (22:33 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Sat, 7 Jan 2012 22:33:05 +0000 (22:33 +0000)
Makes them stand out better.

el/dot-emacs.el

index c972adca0b1a82d16b18a2ea84fbff04a67af92b..1734526b60634e5f03024869c348b1dddad2da40 100644 (file)
@@ -997,9 +997,15 @@ (mdw-define-face whizzy-error-face
 ;; Ellipses used to indicate hidden text (and similar).
 (mdw-define-face mdw-ellipsis-face
   (((type tty)) :foreground "blue") (t :foreground "grey60"))
-(let ((dot (make-glyph-code ?. 'mdw-ellipsis-face)))
+(let ((dollar (make-glyph-code ?$ 'mdw-ellipsis-face))
+      (backslash (make-glyph-code ?\ 'mdw-ellipsis-face))
+      (dot (make-glyph-code ?. 'mdw-ellipsis-face))
+      (bar (make-glyph-code ?| mdw-ellipsis-face)))
+  (set-display-table-slot standard-display-table 0 dollar)
+  (set-display-table-slot standard-display-table 1 backslash)
   (set-display-table-slot standard-display-table 4
-                         (vector dot dot dot)))
+                         (vector dot dot dot))
+  (set-display-table-slot standard-display-table 5 bar))
 
 ;;;--------------------------------------------------------------------------
 ;;; C programming configuration.