(show-paren-command-hook):

Always set show-paren-mismatch-face to symbol, not face vector.

1 files changed, 3 insertions, 5 deletions

diff --git a/lisp/paren.el b/lisp/paren.el
index 14d2d0c5b0d..34768396a3d 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -82,14 +82,12 @@
                     (progn
                       (and (null show-paren-mismatch-face)
                            (x-display-color-p)
-                           (or (setq show-paren-mismatch-face
-                                     (internal-find-face 'paren-mismatch))
+                           (or (internal-find-face 'paren-mismatch)
                                (progn
                                  (make-face 'paren-mismatch)
-                                 (setq show-paren-mismatch-face
-                                       'paren-mismatch)
                                  (set-face-background 'paren-mismatch
-                                                      "purple"))))
+                                                      "purple")))
+                           (setq show-paren-mismatch-face 'paren-mismatch))
                       (if show-paren-mismatch-face
                           (setq face show-paren-mismatch-face)
                         (message "Paren mismatch"))))