From 329ff3a4e7733f960adac638526ae1aec21873f3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 17 Aug 1994 22:31:16 +0000 Subject: [PATCH] (show-paren-command-hook): Set the face of an overlay each time we move it somewhere. --- lisp/paren.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/paren.el b/lisp/paren.el index 758ac66c124..eb108910e28 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -102,8 +102,9 @@ (+ (point) dir) (point) (current-buffer)) (setq show-paren-overlay-1 - (make-overlay (- pos dir) pos)) - (overlay-put show-paren-overlay-1 'face face))) + (make-overlay (- pos dir) pos))) + ;; Always set the overlay face, since it varies. + (overlay-put show-paren-overlay-1 'face face)) ;; Otherwise, turn off any such highlighting. (and show-paren-overlay-1 (overlay-buffer show-paren-overlay-1) @@ -113,8 +114,9 @@ (move-overlay show-paren-overlay (- pos dir) pos (current-buffer)) (setq show-paren-overlay - (make-overlay (- pos dir) pos)) - (overlay-put show-paren-overlay 'face face))) + (make-overlay (- pos dir) pos))) + ;; Always set the overlay face, since it varies. + (overlay-put show-paren-overlay 'face face)) (t ;; If not at a paren that has a match, ;; turn off any previous paren highlighting. -- 2.39.5