From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Mon, 31 Oct 2011 01:15:40 +0000 (-0200)
Subject: Better code for whitespace-newline-mode.
X-Git-Tag: emacs-pretest-24.0.91~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1cf81b4ade4b7d93b773c20a416edc6a98ba5e8;p=emacs.git

Better code for whitespace-newline-mode.
---

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 3cbc41e84c0..68ecb142f70 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1102,12 +1102,9 @@ See also `whitespace-newline' and `whitespace-display-mappings'."
   :init-value nil
   :global     nil
   :group      'whitespace
-  (cond
-   (whitespace-newline-mode
-    (let ((whitespace-style '(face newline-mark newline)))
-      (whitespace-mode whitespace-newline-mode)))
-   (t
-    (whitespace-mode -1)))
+  (let ((whitespace-style '(face newline-mark newline)))
+    (whitespace-mode (if whitespace-newline-mode
+			 1 -1)))
   ;; sync states (running a batch job)
   (setq whitespace-newline-mode whitespace-mode))