diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/whitespace.el | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c5d2efa559c..0d861923260 100644 --- 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 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 |