From: Dmitry Gutov Date: Tue, 19 Mar 2013 04:23:36 +0000 (+0400) Subject: * lisp/whitespace.el (whitespace-color-on): Use `prepend' OVERRIDE X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~530^2~9 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=627b52b0c6f73edc94db90b1f76bd9f44a626ffd;p=emacs.git * lisp/whitespace.el (whitespace-color-on): Use `prepend' OVERRIDE value for `whitespace-line' face. Fixes: debbugs:13875 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4c2b17ff0fa..85e89566b4d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-03-19 Dmitry Gutov + + * whitespace.el (whitespace-color-on): Use `prepend' OVERRIDE + value for `whitespace-line' face (Bug#13875). + 2013-03-19 Leo Liu * progmodes/compile.el (compilation-display-error): New command. diff --git a/lisp/whitespace.el b/lisp/whitespace.el index b0bb610aa3a..382d6f482e2 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -2209,7 +2209,7 @@ resultant list will be returned." ,(if (memq 'lines whitespace-active-style) 0 ; whole line 2) ; line tail - whitespace-line t))) + whitespace-line prepend))) ,@(when (or (memq 'space-before-tab whitespace-active-style) (memq 'space-before-tab::tab whitespace-active-style) (memq 'space-before-tab::space whitespace-active-style))