171 |
(let ((beg (min pos oldpos)) (end (max pos oldpos))) |
(let ((beg (min pos oldpos)) (end (max pos oldpos))) |
172 |
(when (/= (char-syntax (char-after beg)) ?\$) |
(when (/= (char-syntax (char-after beg)) ?\$) |
173 |
(setq mismatch |
(setq mismatch |
174 |
(not (eq (char-before end) |
(not (eq (or (cdr (get-text-property (1- end) 'syntax-table)) |
175 |
|
(char-before end)) |
176 |
;; This can give nil. |
;; This can give nil. |
177 |
(matching-paren (char-after beg))))))))))) |
(or (cdr (get-text-property beg 'syntax-table)) |
178 |
|
(matching-paren (char-after beg)))))))))))) |
179 |
;; |
;; |
180 |
;; Highlight the other end of the sexp, or unhighlight if none. |
;; Highlight the other end of the sexp, or unhighlight if none. |
181 |
(if (not pos) |
(if (not pos) |