diff options
| author | Vinicius Jose Latorre | 2011-10-30 23:15:40 -0200 |
|---|---|---|
| committer | Vinicius Jose Latorre | 2011-10-30 23:15:40 -0200 |
| commit | e1cf81b4ade4b7d93b773c20a416edc6a98ba5e8 (patch) | |
| tree | dd14f07023e35b50f258556c59bce1f2698da5e2 | |
| parent | 72b8747b4fb41633284f9bcf1d9544eda69519aa (diff) | |
| download | emacs-e1cf81b4ade4b7d93b773c20a416edc6a98ba5e8.tar.gz emacs-e1cf81b4ade4b7d93b773c20a416edc6a98ba5e8.zip | |
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'." | |||
| 1102 | :init-value nil | 1102 | :init-value nil |
| 1103 | :global nil | 1103 | :global nil |
| 1104 | :group 'whitespace | 1104 | :group 'whitespace |
| 1105 | (cond | 1105 | (let ((whitespace-style '(face newline-mark newline))) |
| 1106 | (whitespace-newline-mode | 1106 | (whitespace-mode (if whitespace-newline-mode |
| 1107 | (let ((whitespace-style '(face newline-mark newline))) | 1107 | 1 -1))) |
| 1108 | (whitespace-mode whitespace-newline-mode))) | ||
| 1109 | (t | ||
| 1110 | (whitespace-mode -1))) | ||
| 1111 | ;; sync states (running a batch job) | 1108 | ;; sync states (running a batch job) |
| 1112 | (setq whitespace-newline-mode whitespace-mode)) | 1109 | (setq whitespace-newline-mode whitespace-mode)) |
| 1113 | 1110 | ||