From e1cf81b4ade4b7d93b773c20a416edc6a98ba5e8 Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Sun, 30 Oct 2011 23:15:40 -0200 Subject: [PATCH] Better code for whitespace-newline-mode. --- lisp/whitespace.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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)) -- 2.39.5