From 4a3ef8a6827b33185a9a7ce71466eff255d260df Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 21 Oct 1999 22:04:58 +0000 Subject: [PATCH] ... original commit: 26224c902caaf48605583131e36dfe041a2c09c7 --- collects/framework/keymap.ss | 2 +- collects/framework/scheme.ss | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss index f8909816..58619ff2 100644 --- a/collects/framework/keymap.ss +++ b/collects/framework/keymap.ss @@ -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") diff --git a/collects/framework/scheme.ss b/collects/framework/scheme.ss index f7d50e34..b9d8233d 100644 --- a/collects/framework/scheme.ss +++ b/collects/framework/scheme.ss @@ -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