procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Better code for whitespace-newline-mode.

Browse source
This commit is contained in:
Vinicius Jose Latorre 2011-10-30 23:15:40 -02:00
parent 72b8747b4f
commit e1cf81b4ad
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/whitespace.el
View file

@ -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))