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

fixed bugs

Browse Source 
original commit: cd3f3d1d61f57132d213c99157f8a08bb81b23cf
This commit is contained in:
Robby Findler 1996-08-08 22:27:49 +00:00
parent 7021384cb5
commit 6e217d6a29
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/mred/keys.ss
View File

@ -162,16 +162,6 @@
(lambda (edit event)
(send edit set-anchor
(not (send edit get-anchor))))]
[flash-paren-match
(lambda (edit event)
(send edit on-default-char event)
(let ([pos (mred:scheme-paren:scheme-backward-match
edit
(send edit get-start-position)
0)])
(when pos
(send edit flash-on pos (+ 1 pos))))
#t)]
[center-view-on-line
(lambda (edit event)
(let ([new-mid-line (send edit position-line
@ -191,6 +181,16 @@
#f
bottom-pos)))
#t)]
[flash-paren-match
(lambda (edit event)
(send edit on-default-char event)
(let ([pos (mred:scheme-paren:scheme-backward-match
edit
(send edit get-start-position)
0)])
(when pos
(send edit flash-on pos (+ 1 pos))))
#t)]
[collapse-variable-space
(lambda (leave-one? edit event)
(letrec ([find-nonwhite
@ -660,7 +660,7 @@
(send edit get-position start end)
(send edit set-position (sub1 (unbox start)) (unbox end))))])
(lambda (kmap)
; Redirect keymappng error messages to stderr
; Redirect keymapping error messages to stderr
(send kmap set-error-callback keyerr)
; Set the implied shifting map
(map (lambda (k) (send kmap implies-shift k)) shifted-key-list)