(whitespace-highlight-the-space):

Don't call whitespace-unhighlight-the-space here.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5d2efa559c9b3e4b2666e9c38e13dec9cc45716..0d861923260716c3aa6c6c7116adce9906d95c6a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-04-11  Richard M. Stallman  <rms@gnu.org>
 
+       * whitespace.el (whitespace-highlight-the-space):
+       Don't call whitespace-unhighlight-the-space here.
+
        * simple.el (undo): Record t in undo-equiv-table
        for the redo record made by an undo-in-region.
 

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 4406a0615ee9ff4ea13cd1cf0f655c7931827844..1ac518091b8df4e925ec3c5bbca772ae5cd1369a 100644 (file)
--- 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