# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776572942 0
# Node ID 8903669537b0b0343f2ac285020e00fb497fca87
# Parent  be778f8834a5e0a5356b9e4a7b7dae3afec76338
(show-paren-command-hook): Cope if matching-paren gives nil.

diff -r be778f8834a5 -r 8903669537b0 lisp/paren.el
--- a/lisp/paren.el	Wed Aug 10 23:34:39 1994 +0000
+++ b/lisp/paren.el	Thu Aug 11 02:42:22 1994 +0000
@@ -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