Mercurial > hg > xemacs-beta

comparison lisp/packages/paren.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 376386a54a3c
children ec9a17fef872
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
260 ;; to match the one we started at. 260 ;; to match the one we started at.
261 (let ((beg (min pos oldpos)) (end (max pos oldpos))) 261 (let ((beg (min pos oldpos)) (end (max pos oldpos)))
262 (setq mismatch 262 (setq mismatch
263 (and (/= (char-syntax (char-after beg)) ?\\) 263 (and (/= (char-syntax (char-after beg)) ?\\)
264 (/= (char-syntax (char-after beg)) ?\$) 264 (/= (char-syntax (char-after beg)) ?\$)
265 ;; XEmacs change
266 (matching-paren (char-after beg))
265 (/= (char-after (1- end)) 267 (/= (char-after (1- end))
266 (logand (lsh (aref (syntax-table) 268 (logand (lsh (aref (syntax-table)
267 (char-after beg)) 269 (char-after beg))
268 -8) 270 -8)
269 255)))) 271 255))))