Stefan
--- paren.el 20 aoĆ» 2005 19:26:11 -0400 1.64
+++ paren.el 13 nov 2005 17:37:23 -0500
@@ -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)
--- simple.el 12 Nov 2005 00:10:56 -0000 1.762
+++ simple.el 13 Nov 2005 22:38:39 -0000
@@ -4314,9 +4314,8 @@
(eq (syntax-class syntax) 4)
(cdr syntax)))))
(cond
- ((or (null matching-paren)
- (/= (char-before oldpos)
- matching-paren))
+ ((not (or (eq matching-paren (char-before oldpos))
+ (eq matching-paren (cdr (syntax-after oldpos)))))
(message "Mismatched parentheses"))
((not blinkpos)
(if (not blink-matching-paren-distance)