diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-04-11 18:39:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-04-11 18:39:13 +0000 |
| commit | 7dbe67a41259108693fa6fc4149bbdd9ebf236b3 (patch) | |
| tree | 2e22daaf8e34d5c83a802f52838fbbffd9948551 /lisp/whitespace.el | |
| parent | 713c90208683184a6cc919c028629fa8237a3ffa (diff) | |
| download | emacs-7dbe67a41259108693fa6fc4149bbdd9ebf236b3.tar.gz | |
(whitespace-highlight-the-space):
Don't call whitespace-unhighlight-the-space here.
Diffstat (limited to 'lisp/whitespace.el')
| -rw-r--r-- | lisp/whitespace.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/whitespace.el b/lisp/whitespace.el index 4406a0615ee..1ac518091b8 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -733,12 +733,11 @@ Also with whitespaces whose testing has been turned off." "Highlight the current line, unhighlighting a previously jumped to line." (if whitespace-display-spaces-in-color (let ((ol (whitespace-make-overlay b e))) - (whitespace-unhighlight-the-space) (push ol whitespace-highlighted-space) (whitespace-overlay-put ol 'face 'whitespace-highlight-face)))) ;; (add-hook 'pre-command-hook 'whitespace-unhighlight-the-space)) -(defun whitespace-unhighlight-the-space () +(defun whitespace-unhighlight-the-space() "Unhighlight the currently highlight line." (if (and whitespace-display-spaces-in-color whitespace-highlighted-space) (progn |