suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hide the testing of the close parens with an edit-sequence

Browse Source
This commit is contained in:
Robby Findler 2013-04-02 21:26:11 -05:00
parent 944602440c
commit 77a1b55c32
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/color.rkt
View File

@ -1024,6 +1024,7 @@ added get-regions
;; See docs ;; See docs
;; smart-skip : (or/c #f 'adjacent 'forward) ;; smart-skip : (or/c #f 'adjacent 'forward)
(define/public (insert-close-paren pos char flash? fixup? [smart-skip #f]) (define/public (insert-close-paren pos char flash? fixup? [smart-skip #f])
(begin-edit-sequence)
(define closers (map symbol->string (map cadr pairs))) (define closers (map symbol->string (map cadr pairs)))
(define closer (get-close-paren pos (define closer (get-close-paren pos
(if fixup? ;; Ensure preference for given character: (if fixup? ;; Ensure preference for given character:
@ -1066,7 +1067,7 @@ added get-regions
(format "invalid smart-skip option: ~a" smart-skip))])] (format "invalid smart-skip option: ~a" smart-skip))])]
[else [else
(insert)])) (insert)]))
(end-edit-sequence)
(when (and flash? (not stopped?)) (flash-from end-pos))) (when (and flash? (not stopped?)) (flash-from end-pos)))
;; find-closer : exact-nonnegative-integer? -> (or/c #f string?) ;; find-closer : exact-nonnegative-integer? -> (or/c #f string?)