From d49c1f4478052b6a4a856283c72b9ae951bbd287 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 19 Mar 2002 01:25:58 +0000
Subject: [PATCH] ..

original commit: 576331e2b2e483c2a0eb0a57a695c5d5d302913f
---
 collects/framework/private/editor.ss      | 2 +-
 collects/framework/private/main.ss        | 1 +
 collects/framework/private/preferences.ss | 1 +
 collects/framework/private/text.ss        | 5 ++---
 4 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss
index 03fee925..66cbb74b 100644
--- a/collects/framework/private/editor.ss
+++ b/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)
diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index e374e317..78be2050 100644
--- a/collects/framework/private/main.ss
+++ b/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))
diff --git a/collects/framework/private/preferences.ss b/collects/framework/private/preferences.ss
index e9e44588..ee8b4d01 100644
--- a/collects/framework/private/preferences.ss
+++ b/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)
              
diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 2019e25d..2d5e40bc 100644
--- a/collects/framework/private/text.ss
+++ b/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