From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 29 Apr 2016 15:58:58 +0000 (+0100)
Subject: dot/emacs: Angry fruit salad the tail ends of overlong lines.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/33aa287b7b0d25e54ef0891f487266e35c7acdaf

dot/emacs: Angry fruit salad the tail ends of overlong lines.
---

diff --git a/dot/emacs b/dot/emacs
index f6290cc..040ab9b 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -312,8 +312,9 @@
 	      truncate-lines t)
 (setq default-indicate-empty-lines t)
 (setq view-read-only t)
-(setq whitespace-style
-      '(trailing space-before-tab space-after-tab empty indentation face))
+(setq whitespace-style '(trailing empty indentation face lines-tail
+			 space-before-tab space-after-tab)
+      whitespace-line-column 77)
 (setq woman-use-own-frame nil		;Keep man pages somewhere sensible
       woman-fill-column 72)		;Right margin position.
 (setq diff-switches "-u"		;I like reading unified diffs
diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 5a7f08d..53c3c5e 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1224,6 +1224,9 @@ (mdw-define-face dired-perm-write
 (mdw-define-face trailing-whitespace
   (((class color)) :background "red")
   (t :inverse-video t))
+(mdw-define-face whitespace-line
+  (((class color)) :background "darkred")
+  (t :inverse-video :t))
 (mdw-define-face mdw-punct-face
   (((type tty)) :foreground "yellow") (t :foreground "burlywood2"))
 (mdw-define-face mdw-number-face