# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1113244736 0
# Node ID c85ac0c1b8e99d6dfb86bfedb766964ad539e322
# Parent  757b6ee5eaa19eeed9bc30d931afeb317e863e49
(whitespace-highlight-the-space):
Don't call whitespace-unhighlight-the-space here.

diff -r 757b6ee5eaa1 -r c85ac0c1b8e9 lisp/whitespace.el
--- a/lisp/whitespace.el	Mon Apr 11 18:09:59 2005 +0000
+++ b/lisp/whitespace.el	Mon Apr 11 18:38:56 2005 +0000
@@ -733,12 +733,11 @@
   "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