Mercurial > emacs

changeset 8510:8903669537b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(show-paren-command-hook): Cope if matching-paren gives nil.
author Richard M. Stallman <rms@gnu.org>
date Thu, 11 Aug 1994 02:42:22 +0000
parents be778f8834a5
children be7f0e042b3c
files lisp/paren.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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