From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 11 Aug 1994 02:42:22 +0000 (+0000)
Subject: (show-paren-command-hook): Cope if matching-paren gives nil.
X-Git-Tag: emacs-19.34~7343
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=080d320dce20fc45431958339526c4a8d9b7e5cb;p=emacs.git

(show-paren-command-hook): Cope if matching-paren gives nil.
---

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