(show-paren-command-hook): Set the face of an overlay

each time we move it somewhere.

1 files 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.