diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2011-10-30 23:15:40 -0200 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2011-10-30 23:15:40 -0200 |
| commit | e1cf81b4ade4b7d93b773c20a416edc6a98ba5e8 (patch) | |
| tree | dd14f07023e35b50f258556c59bce1f2698da5e2 | |
| parent | 72b8747b4fb41633284f9bcf1d9544eda69519aa (diff) | |
| download | emacs-e1cf81b4ade4b7d93b773c20a416edc6a98ba5e8.tar.gz | |
Better code for whitespace-newline-mode.
| -rw-r--r-- | lisp/whitespace.el | 9 |
1 files 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)) |