[Emacs-diffs] Changes to emacs/lisp/whitespace.el

[Richard M . Stallman]

Index: emacs/lisp/whitespace.el
diff -c emacs/lisp/whitespace.el:1.32 emacs/lisp/whitespace.el:1.33
*** emacs/lisp/whitespace.el:1.32       Fri Apr  8 14:40:57 2005
--- emacs/lisp/whitespace.el    Mon Apr 11 18:38:56 2005
***************
*** 733,744 ****
    "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 ()
    "Unhighlight the currently highlight line."
    (if (and whitespace-display-spaces-in-color whitespace-highlighted-space)
        (progn
--- 733,743 ----
    "Highlight the current line, unhighlighting a previously jumped to line."
    (if whitespace-display-spaces-in-color
        (let ((ol (whitespace-make-overlay b e)))
        (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()
    "Unhighlight the currently highlight line."
    (if (and whitespace-display-spaces-in-color whitespace-highlighted-space)
        (progn