From 7dbe67a41259108693fa6fc4149bbdd9ebf236b3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 11 Apr 2005 18:39:13 +0000 Subject: [PATCH] (whitespace-highlight-the-space): Don't call whitespace-unhighlight-the-space here. --- lisp/ChangeLog | 3 +++ 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 + * 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 -- 2.39.2