* whitespace.el (global-whitespace-newline-mode): Fix call

to minor mode which used nil accidentally to mean "turn off".

Fixes: debbugs:7810

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc51f86bc379caa8fc6419a5c29500ac8a526d14..4553b6ed28c942ae9ececfd742ef75de6d7983eb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * whitespace.el (global-whitespace-newline-mode): Fix call (bug#7810)
+       to minor mode which used nil accidentally to mean "turn off".
+
 2011-01-10  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-find-inline-compress)

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 353d7fef189e09ba946b333b126dc5ac567a6a73..6608c0c2c5077e5e207750f2a6497cd8e5903937 100644 (file)
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1188,7 +1188,8 @@ See also `whitespace-newline' and `whitespace-display-mappings'."
   :global     t
   :group      'whitespace
   (let ((whitespace-style '(newline-mark newline)))
-    (global-whitespace-mode global-whitespace-newline-mode)
+    (global-whitespace-mode (if global-whitespace-newline-mode
+                                1 -1))
     ;; sync states (running a batch job)
     (setq global-whitespace-newline-mode global-whitespace-mode)))