From e8f9dff93bc1a0415327d6299a25ca136a833326 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 May 1994 07:45:49 +0000 Subject: [PATCH] (show-paren-command-hook): Always set show-paren-mismatch-face to symbol, not face vector. --- lisp/paren.el | 8 +++----- 1 file 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")))) -- 2.39.5