*** empty log message ***

original commit: 8584e4a842e19e0a2941220fb0775ba82868aeca
2004-01-04 00:10:17 +00:00 · 2004-01-04 00:10:17 +00:00 · 548c661fae
commit 548c661fae
parent 65163abd23
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@ -601,7 +601,7 @@
                 (insert c)
                 (let ((m (backward-match (+ l pos) start-pos)))
                   (cond
-                     ((and m (send parens is-open-pos? m))
+                     ((and m (send parens is-open-pos? (- m start-pos)))
                      (delete pos (+ l pos))
                      c)
                     (else