[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Recent change to paren.el
From: |
Stefan Monnier |
Subject: |
Recent change to paren.el |
Date: |
Fri, 03 Dec 2004 16:12:07 -0500 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux) |
I can't find the message from Richard G. Bielawski describing either the
problem or the fix, but the new code in paren.el can't be right.
Can someone see if the patch below fixes Richard's problem as well?
Or is there some other objection to it?
Stefan
*** paren.el 03 déc 2004 15:42:39 -0500 1.59
--- paren.el 03 déc 2004 16:05:30 -0500
***************
*** 169,181 ****
;; 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)) ?\$)
(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))))))))))))
;;
;; Highlight the other end of the sexp, or unhighlight if none.
(if (not pos)
--- 169,182 ----
;; kind of paren to match the one we started at.
(when (integerp pos)
(let ((beg (min pos oldpos)) (end (max pos oldpos)))
! (unless (eq (car (syntax-after beg)) 8) ;Not syntax `$'.
(setq mismatch
! (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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Recent change to paren.el,
Stefan Monnier <=