181 |
(cdr (syntax-after beg))) |
(cdr (syntax-after beg))) |
182 |
(eq (char-after beg) |
(eq (char-after beg) |
183 |
;; This can give nil. |
;; This can give nil. |
184 |
(cdr (syntax-after (1- end))))))))))))) |
(cdr (syntax-after (1- end)))) |
185 |
|
;; The cdr might hold a new paren-class |
186 |
|
;; info rather than a matching-char info, |
187 |
|
;; in which case the two CDRs should match. |
188 |
|
(eq (cdr (syntax-after (1- end))) |
189 |
|
(cdr (syntax-after beg)))))))))))) |
190 |
;; |
;; |
191 |
;; Highlight the other end of the sexp, or unhighlight if none. |
;; Highlight the other end of the sexp, or unhighlight if none. |
192 |
(if (not pos) |
(if (not pos) |