Mercurial > hg > xemacs-beta
diff lisp/packages/paren.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:02:59 +0200 |
parents | ec9a17fef872 |
children | 4be1180a9e89 |
line wrap: on
line diff
--- a/lisp/packages/paren.el Mon Aug 13 09:00:04 2007 +0200 +++ b/lisp/packages/paren.el Mon Aug 13 09:02:59 2007 +0200 @@ -78,7 +78,7 @@ and shell quoting. This variable is global by default, but you can make it buffer-local and -highlight parentheses differently in different major modes.") +highlight parentheses differrently in different major modes.") (make-face 'paren-match) (or (face-differs-from-default-p 'paren-match) @@ -263,12 +263,8 @@ (and (/= (char-syntax (char-after beg)) ?\\) (/= (char-syntax (char-after beg)) ?\$) ;; XEmacs change - (matching-paren (char-after beg)) (/= (char-after (1- end)) - (logand (lsh (aref (syntax-table) - (char-after beg)) - -8) - 255)))) + (matching-paren (char-after beg))))) (if (eq paren-mode 'sexp) (setq paren-extent (make-extent beg end)))) (and mismatch @@ -312,7 +308,7 @@ ;;;###autoload (defun paren-set-mode (arg &optional quiet) "Cycles through possible values for `paren-mode', force off with negative arg. -When called from lisp, a symbolic value for `paren-mode' can be passed directly. +When called from lisp, a symbolic value for `paren-mode' can be pased directly. See also `paren-mode' and `paren-highlight'." (interactive "P") (let* ((paren-modes '(blink-paren paren sexp))