From 91a2b4115595ce7942f187989bb324cbbc538600 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 9 Aug 1999 03:24:16 +0000
Subject: [PATCH] ...

original commit: e0f7a79103096ab6b369441805706a642afade62
---
 collects/framework/frame.ss      | 4 ++--
 collects/framework/frameworks.ss | 1 -
 collects/framework/keymap.ss     | 4 ++++
 collects/framework/scheme.ss     | 1 -
 4 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index 97e20b0c..571b64c1 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -722,8 +722,8 @@
       (override
         [get-editor<%> (lambda () text:searching<%>)]
 	[get-editor% (lambda () text:searching%)]
-	[edit-menu:find (lambda (menu evt) (move-to-search-or-search))]
-	[edit-menu:find-again (lambda (menu evt) (search-again))])
+	[edit-menu:find (lambda (menu evt) (move-to-search-or-search) #t)]
+	[edit-menu:find-again (lambda (menu evt) (search-again) #t)])
       (override
 	[make-root-area-container
 	 (lambda (% parent)
diff --git a/collects/framework/frameworks.ss b/collects/framework/frameworks.ss
index ca25623d..de958393 100644
--- a/collects/framework/frameworks.ss
+++ b/collects/framework/frameworks.ss
@@ -239,7 +239,6 @@
    init-wordbreak-map
 
    get-style-list
-   get-delta
 
    get-keymap
    setup-keymap
diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss
index a9df6a58..5ea3911b 100644
--- a/collects/framework/keymap.ss
+++ b/collects/framework/keymap.ss
@@ -724,6 +724,10 @@
 	  (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")
+
 	  (map-meta "space" "collapse-space")
 	  (map-meta "\\" "remove-space")
 	  (map "c:x;c:o" "collapse-newline")
diff --git a/collects/framework/scheme.ss b/collects/framework/scheme.ss
index 91684df9..2e05098e 100644
--- a/collects/framework/scheme.ss
+++ b/collects/framework/scheme.ss
@@ -69,7 +69,6 @@
     (let ([delta (make-object style-delta% 'change-normal)])
       (send delta set-delta 'change-family 'modern)
       delta))
-  (define (get-delta) delta)
   (let ([style (send style-list find-named-style "Standard")])
     (if style
 	(send style set-delta delta)