..

original commit: 576331e2b2e483c2a0eb0a57a695c5d5d302913f

collects/framework/private/editor.ss

@@ -372,7 +372,7 @@
                     (< modified-seconds old-seconds))
                   #t))]
 	  (public backup?)
-          [define backup? (lambda () #t)]
+          [define backup? (lambda () (preferences:get 'framework:backup-files?))]
 	  (override on-save-file on-close on-change set-modified)
           [define on-save-file
 	    (lambda (name format)

collects/framework/private/main.ss

@@ -96,6 +96,7 @@
       
       (preferences:set-default 'framework:autosave-delay 300 number?)
       (preferences:set-default 'framework:autosaving-on? #t boolean?)
+      (preferences:set-default 'framework:backup-files? #t boolean?)
       (preferences:set-default 'framework:verify-exit #t boolean?)
       (preferences:set-default 'framework:delete-forward? 
 			       (not (eq? (system-type) 'unix))

collects/framework/private/preferences.ss

@@ -356,6 +356,7 @@
              (make-check 'framework:fixup-parens (string-constant fixup-parens) id id)
              (make-check 'framework:paren-match (string-constant flash-paren-match) id id)
              (make-check 'framework:autosaving-on? (string-constant auto-save-files) id id)
+             (make-check 'framework:backup-files? (string-constant backup-files) id id)
              (make-check 'framework:delete-forward? (string-constant map-delete-to-backspace)
                          not not)
              

collects/framework/private/text.ss

@@ -208,8 +208,7 @@
                     (foldl (lambda (x l) (append (new-rectangles x) l))
                            null ranges))))
           
-          (public highlight-range)
-          (define highlight-range
+          (define/public highlight-range
             (opt-lambda (start end color [bitmap #f] [caret-space? #f] [priority 'low])
               (unless (let ([exact-pos-int?
                              (lambda (x) (and (integer? x) (exact? x) (x . >= . 0)))])
@@ -549,7 +548,7 @@
           
           (rename [super-highlight-range highlight-range])
           (define/override highlight-range
-            (opt-lambda (start end color bitmap [caret-space? #f] [priority 'low])
+            (opt-lambda (start end color [bitmap #f] [caret-space? #f] [priority 'low])
               (let ([res (super-highlight-range start end color bitmap caret-space? priority)])
                 (if delegate
                     (let ([delegate-res (send delegate highlight-range