original commit: d35b06befa49a22857b2c2912adab99c0663f8db
This commit is contained in:
Matthew Flatt 2005-03-08 17:00:11 +00:00
parent 3f1f7a7aef
commit 82d2f6b45b

View File

@ -598,7 +598,7 @@
(else
(let* ((c (car closers))
(l (string-length c)))
(insert c)
(insert c pos)
(let ((m (backward-match (+ l pos) start-pos)))
(cond
((and m