diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-11-20 18:07:19 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-11-20 18:07:19 +0000 |
| commit | 1793ac759fab732d4e5b2242b17ab9e1f797810f (patch) | |
| tree | 4a1a3ca1a4bb92bb8345278c1865b9a5b1459ad9 /lisp/paren.el | |
| parent | 602ad1ad2d9ed69178f9f6fda3e1c6b7ec264a59 (diff) | |
| download | emacs-1793ac759fab732d4e5b2242b17ab9e1f797810f.tar.gz | |
(show-paren-function): Allow new paren-class info.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index a1cc12712f7..ece3ed3c606 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -181,7 +181,12 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." (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) |