From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 Jan 2005 20:50:43 +0000 (+0000)
Subject: (blink-matching-open): Strip extra info from syntax.
X-Git-Tag: ttn-vms-21-2-B4~2680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14b495ffb1fc5d9bf47b9eec56b8a2f1cc588690;p=emacs.git

(blink-matching-open): Strip extra info from syntax.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 82dd693ad34..fbcb776c7dc 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1,7 +1,7 @@
 ;;; simple.el --- basic editing commands for Emacs
 
 ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-;;               2000, 2001, 2002, 2003, 2004
+;;               2000, 2001, 2002, 2003, 2004, 2005
 ;;        Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -4001,7 +4001,7 @@ when it is off screen)."
 		(setq matching-paren
 		      (let ((syntax (syntax-after blinkpos)))
 			(and (consp syntax)
-			     (eq (car syntax) 4)
+			     (eq (logand (car syntax) 255) 4)
 			     (cdr syntax)))
 		      mismatch
 		      (or (null matching-paren)