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))