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

...

Browse Source 
original commit: 26224c902caaf48605583131e36dfe041a2c09c7
This commit is contained in:
Robby Findler 1999-10-21 22:04:58 +00:00
parent 041de65d2e
commit 4a3ef8a682
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/keymap.ss
View File

@ -715,7 +715,7 @@
(map-meta "w" "copy-clipboard")
(map "a:c" "copy-clipboard")
(map "d:c" "copy-clipboard")
(map "s:delete" "cut-clipboard")
(map "c:insert" "copy-clipboard")
(map "s:insert" "paste-clipboard")

4
collects/framework/scheme.ss
View File

@ -566,7 +566,7 @@
(= (paragraph-start-position (position-paragraph start-pos))
start-pos)])
(let* ([first-para (position-paragraph start-pos)]
[last-para (position-paragraph end-pos)])
[last-para (position-paragraph end-pos #t)])
(let para-loop ([curr-para first-para])
(if (<= curr-para last-para)
(let ([first-on-para (paragraph-start-position curr-para)])
@ -584,7 +584,7 @@
(begin-edit-sequence)
(let ([last-pos (last-position)]
[first-para (position-paragraph start-pos)]
[last-para (position-paragraph end-pos)])
[last-para (position-paragraph end-pos #t)])
(let para-loop ([curr-para first-para])
(if (<= curr-para last-para)
(let ([first-on-para