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

diff --git a/dot/emacs b/dot/emacs
index f6290cc158791a164591bdf58caaa343acc37bee..040ab9bbb2cd15379e627fc83ada98cb9c1b0eaa 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -312,8 +312,9 @@
              truncate-lines t)
 (setq default-indicate-empty-lines t)
 (setq view-read-only t)
              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
 (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 5a7f08d41a9c9cffe5643bf47d91d41e707394f7..53c3c5e46bf62f2fd00c8d5b15d72158ddb703d5 100644 (file)
--- 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 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
 (mdw-define-face mdw-punct-face
   (((type tty)) :foreground "yellow") (t :foreground "burlywood2"))
 (mdw-define-face mdw-number-face