From d7f10465ee75a5866b199781ffccdf537d1f410f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 1 Nov 2004 22:16:54 +0000
Subject: [PATCH] .

original commit: 2a138e398c37bdd5963defe56085c6325b164d0f
---
 collects/framework/private/color.ss  | 4 ++--
 collects/framework/private/keymap.ss | 2 +-
 collects/framework/private/scheme.ss | 8 +++++++-
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss
index 8acd112a..4d33ce71 100644
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@@ -302,7 +302,7 @@
 						       (lambda (x) #f))
 			       current-pos))
                 (set! up-to-date? #t)
-                ;(printf "~a~n" (- (current-milliseconds) timer))
+		;; (printf "~a~n" (- (current-milliseconds) timer))
 		(semaphore-post done-sema)
                 (semaphore-post mutex-lock)
                 (thread-suspend (current-thread))))
@@ -330,7 +330,7 @@
 		(parameterize-break #f
 		  (set! background-thread
 			(thread (lambda () (background-colorer-entry))))))
-              ;(set! timer (current-milliseconds))
+	      ;; (set! timer (current-milliseconds))
               (do-insert/delete start-pos 0)))
             
           ;; See docs
diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index 767adbf9..b2c0ba2e 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -582,7 +582,7 @@
 		  (region-click edit event
 				(lambda (click eol start end)
 				  (send edit set-position click)
-				  (send edit paste 0 click))))]
+				  (send edit paste-x-selection 0 click))))]
 	       
 	       [mouse-copy-clipboard
 		(lambda (edit event)
diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index bef2de26..8ef9853d 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -282,7 +282,13 @@
       (define (get-color-prefs-table) color-prefs-table)
       
       (define (short-sym->pref-name sym) (string->symbol (short-sym->style-name sym)))
-      (define (short-sym->style-name sym) (format "framework:syntax-coloring:scheme:~a" sym))
+      (define sn-hash (make-hash-table))
+      (define (short-sym->style-name sym)
+	(hash-table-get sn-hash sym
+			(lambda ()
+			  (let ([s (format "framework:syntax-coloring:scheme:~a" sym)])
+			    (hash-table-put! sn-hash sym s)
+			    s))))
       
       (define (add-coloring-preferences-panel)
         (color-prefs:add-to-preferences-panel