Recent change to paren.el

Recent change to paren.el

[Stefan Monnier]

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)