.

original commit: 2a138e398c37bdd5963defe56085c6325b164d0f

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

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)

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