Mercurial > emacs

changeset 67052:8ad986f91500

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(show-paren-function): Allow new paren-class info.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 20 Nov 2005 18:07:19 +0000
parents ba04f6850d69
children ac8622e9be6d
files lisp/paren.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/paren.el	Sun Nov 20 18:06:05 2005 +0000
+++ b/lisp/paren.el	Sun Nov 20 18:07:19 2005 +0000
@@ -181,7 +181,12 @@
 				       (cdr (syntax-after beg)))
 				   (eq (char-after beg)
 				       ;; This can give nil.
-				       (cdr (syntax-after (1- end)))))))))))))
+				       (cdr (syntax-after (1- end))))
+                                   ;; The cdr might hold a new paren-class
+                                   ;; info rather than a matching-char info,
+                                   ;; in which case the two CDRs should match.
+                                   (eq (cdr (syntax-after (1- end)))
+                                       (cdr (syntax-after beg))))))))))))
 	;;
 	;; Highlight the other end of the sexp, or unhighlight if none.
 	(if (not pos)