summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2011-09-19 14:06:14 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2011-09-19 14:06:14 -0400
commitb6072fa6a4f38a9def8080f924f0fa8befe180ed (patch)
tree2740e57a99db5a75914e7de7c5ddfa14e3d36f93
parent85cb5d5706296814be7d116cbbd497f6e5b1ac4c (diff)
downloademacs-b6072fa6a4f38a9def8080f924f0fa8befe180ed.tar.gz
* lisp/whitespace.el (whitespace-newline-mode): Disable it right.
Fixes: debbugs:9550
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/whitespace.el4
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d748c1a967c..344e4ab9dfa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-19 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * whitespace.el (whitespace-newline-mode): Disable it right (bug#9550).
+
2011-09-19 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-inline-compress-commands): Add "xz".
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 89f078a5063..e0bc74343d2 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -1105,8 +1105,8 @@ See also `whitespace-newline' and `whitespace-display-mappings'."
:global nil
:group 'whitespace
(let ((whitespace-style '(face newline-mark newline)))
- (whitespace-mode whitespace-newline-mode)
- ;; sync states (running a batch job)
+ (whitespace-mode (if whitespace-newline-mode 1 -1))
+ ;; Sync states (running a batch job).
(setq whitespace-newline-mode whitespace-mode)))