[Emacs-diffs] /srv/bzr/emacs/trunk r106253: Better code for whitespace-newline-mode.

[Vinicius Jose Latorre]

------------------------------------------------------------
revno: 106253
committer: Vinicius Jose Latorre  <address@hidden
branch nick: trunk
timestamp: Sun 2011-10-30 23:15:40 -0200
message:
  Better code for whitespace-newline-mode.
modified:
  lisp/whitespace.el

=== modified file 'lisp/whitespace.el'
--- a/lisp/whitespace.el        2011-10-31 00:37:09 +0000
+++ b/lisp/whitespace.el        2011-10-31 01:15:40 +0000
@@ -1102,12 +1102,9 @@
   :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))