martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(show-paren-function): Check for matching chars specified by text props.

Browse Source
This commit is contained in:
Richard M. Stallman
2004-12-03 00:06:21 +00:00
parent 8eca85ef53
commit 2f27dfeb0d
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/paren.el
View File

@@ -171,9 +171,11 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
(let ((beg (min pos oldpos)) (end (max pos oldpos)))
(when (/= (char-syntax (char-after beg)) ?\$)
(setq mismatch
(not (eq (char-before end)
(not (eq (or (cdr (get-text-property (1- end) 'syntax-table))
(char-before end))
;; This can give nil.
(matching-paren (char-after beg)))))))))))
(or (cdr (get-text-property beg 'syntax-table))
(matching-paren (char-after beg))))))))))))
;;
;; Highlight the other end of the sexp, or unhighlight if none.
(if (not pos)