From 1f6af153e6be09ab20e5de686fce3207aac8d042 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 12 Oct 2000 09:22:24 +0000 Subject: [PATCH] * wl-xmas.el (wl-highlight-folder-current-line): Remove previous face. * wl-mule.el (wl-highlight-folder-current-line): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-mule.el | 2 ++ wl/wl-xmas.el | 2 ++ 3 files changed, 10 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index ff3ed9d..b0f9945 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2000-10-12 Yuuichi Teranishi + + * wl-xmas.el (wl-highlight-folder-current-line): Remove previous face. + + * wl-mule.el (wl-highlight-folder-current-line): Ditto. + 2000-10-11 Yuuichi Teranishi * wl-highlight.el (wl-highlight-folder-group-line): Remove previous diff --git a/wl/wl-mule.el b/wl/wl-mule.el index c8d1475..3d0e40a 100644 --- a/wl/wl-mule.el +++ b/wl/wl-mule.el @@ -87,6 +87,8 @@ Special commands: (progn (put-text-property start (match-beginning 0) 'face text-face) (put-text-property (match-beginning 0) (point) 'face face)) + ;; Remove previous face. + (put-text-property start (point) 'face nil) (put-text-property start (point) 'face face)) (goto-char start)) (put-text-property start end 'face text-face))) diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el index af2779d..51d037d 100644 --- a/wl/wl-xmas.el +++ b/wl/wl-xmas.el @@ -316,6 +316,8 @@ (put-text-property (match-beginning 0) (match-end 0) 'face face)) + ;; Remove previous face. + (put-text-property start (match-end 0) 'face nil) (put-text-property start (match-end 0) 'face face))) (put-text-property start end 'face text-face)))))))))) -- 1.7.10.4