From 080d320dce20fc45431958339526c4a8d9b7e5cb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 11 Aug 1994 02:42:22 +0000 Subject: [PATCH] (show-paren-command-hook): Cope if matching-paren gives nil. --- lisp/paren.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/paren.el b/lisp/paren.el index c1237f9733e..758ac66c124 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -71,8 +71,9 @@ (let ((beg (min pos oldpos)) (end (max pos oldpos))) (and (/= (char-syntax (char-after beg)) ?\$) (setq mismatch - (/= (char-after (1- end)) - (matching-paren (char-after beg))))))) + (not (eq (char-after (1- end)) + ;; This can give nil. + (matching-paren (char-after beg)))))))) ;; If they don't properly match, use a different face, ;; or print a message. (if mismatch -- 2.39.5