From 96bda29d36fe90e894d6acb4f87d8933fecd2a46 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 6 Dec 2004 19:06:12 +0000 Subject: (show-paren-function): Fix last change (2004-12-02). --- lisp/paren.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'lisp/paren.el') diff --git a/lisp/paren.el b/lisp/paren.el index bc5c2f1f007..63300ce6238 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -169,13 +169,14 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." ;; kind of paren to match the one we started at. (when (integerp pos) (let ((beg (min pos oldpos)) (end (max pos oldpos))) - (when (/= (char-syntax (char-after beg)) ?\$) + (unless (eq (car (syntax-after beg)) 8) ;Not syntax `$'. (setq mismatch - (not (eq (or (cdr (get-text-property (1- end) 'syntax-table)) - (char-before end)) - ;; This can give nil. - (or (cdr (get-text-property beg 'syntax-table)) - (matching-paren (char-after beg)))))))))))) + (not (or (eq (char-before end) + ;; This can give nil. + (cdr (syntax-after beg))) + (eq (char-after beg) + ;; This can give nil. + (cdr (syntax-after (1- end))))))))))))) ;; ;; Highlight the other end of the sexp, or unhighlight if none. (if (not pos) -- cgit v1.2.1