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

each time we move it somewhere.

diff --git a/lisp/paren.el b/lisp/paren.el
index 758ac66c1245b4a3ea1cd21e1bdf352850221edd..eb108910e284d85a6c0bc1ccc6346eabf1cf1697 100644 (file)
--- 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.