mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(whitespace-update-modeline): Bugfix to ensure

Browse Source 
that the modeline display was updated *only* when
`whitespace-display-in-modeline' was set, not otherwise.
This commit is contained in:
Gerd Moellmann 1999-10-31 13:59:19 +00:00
parent e82bd92274
commit 0e38b2a220
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/whitespace.el
View File

@ -502,6 +502,7 @@ whitespace problems."
"Update modeline with whitespace errors and whitespaces whose testing has
been turned off."
(if whitespace-display-in-modeline
(progn
(setq whitespace-mode-line nil)
;; Whitespace errors
(if (and whitespace-err (not (equal whitespace-err "")))
@ -515,7 +516,7 @@ been turned off."
(setq whitespace-mode-line (if whitespace-mode-line
(concat " W:" whitespace-mode-line)
nil))
(whitespace-force-mode-line-update)))
(whitespace-force-mode-line-update))))
;; Force mode line updation for different Emacs versions
(defun whitespace-force-mode-line-update ()