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

..

Browse Source 
original commit: c327f4ad30c1750a769ee3197c2e0d067698dcb5
This commit is contained in:
Robby Findler 2003-07-01 22:55:11 +00:00
parent 096b767998
commit 0ee1729136
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/keymap.ss
View File

@ -446,8 +446,7 @@
(let ([sel-start (send edit get-start-position)]
[sel-end (send edit get-end-position)])
(when (and (= sel-start sel-end)
(not (= sel-start 0))
(not (= sel-start (send edit last-position))))
(not (= sel-start 0)))
(let ([sel-start
(if (= sel-start