diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-01-18 20:50:43 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-01-18 20:50:43 +0000 |
| commit | 14b495ffb1fc5d9bf47b9eec56b8a2f1cc588690 (patch) | |
| tree | 9720361aac4982e7cc087322df43925c36be28b6 | |
| parent | 926787bea1175eaba471430d08b1210e492168a7 (diff) | |
| download | emacs-14b495ffb1fc5d9bf47b9eec56b8a2f1cc588690.tar.gz | |
(blink-matching-open): Strip extra info from syntax.
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |