...

original commit: e0f7a79103096ab6b369441805706a642afade62

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)

collects/framework/frameworks.ss

@@ -239,7 +239,6 @@
    init-wordbreak-map
 
    get-style-list
-   get-delta
 
    get-keymap
    setup-keymap

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")

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)