.

original commit: a98d56cbbbb738f00bf4cdf47c6f5665bafeb4a0

collects/framework/framework.ss

@@ -212,6 +212,12 @@
     "potentially marshalling some of the preferences."
     ""
     "Returns \\scm{\\#f} if saving the preferences fails and \\scm{\\#t} otherwise.")
+   (preferences:silent-save
+    (-> boolean?)
+    ()
+    "Same as"
+    "@flink preferences:save"
+    "except that it does not put display a message if it fails.")
    (preferences:read
     (-> void?)
     ()

collects/framework/private/main.ss

@@ -238,7 +238,9 @@
       
       (exit:insert-on-callback
        (lambda ()
-         (send (group:get-the-frame-group) on-close-all)))
+         (send (group:get-the-frame-group) on-close-all)
+         (preferences:silent-save) ;; the prefs may have changed as a result of closing the windows...
+         ))
       
       (exit:insert-can?-callback 
        (lambda ()

collects/framework/private/preferences.ss

@@ -210,6 +210,7 @@
 
       
       (define (save) (raw-save #f))
+      (define (silent-save) (raw-save #f))
       
       ;; raw-save : boolean -> boolean
       ;; input determines if there is a dialog box showing the errors (and other msgs)

collects/framework/private/scheme.ss

@@ -592,11 +592,14 @@
           
           (define (tabify-all) (tabify-selection 0 (last-position)))
           (define (insert-return)
+            (printf "insert-return ~s\n" (tabify-on-return?))
             (if (tabify-on-return?)
                 (begin 
                   (begin-edit-sequence)
                   (insert #\newline)
+                  (printf "calling tabify\n")
                   (tabify (get-start-position))
+                  (printf "called tabify\n")
                   (set-position 
                    (let loop ([new-pos (get-start-position)])
                      (if (let ([next (get-character new-pos)])
@@ -1043,7 +1046,8 @@
             (add-edit-function "tabify-at-caret"  
                                (lambda (x) (send x tabify-selection)))
             (add-edit-function "do-return"  
-                               (lambda (x) (send x insert-return)))
+                               (lambda (x) 
+                                 (send x insert-return)))
             (add-edit-function "comment-out"  
                                (lambda (x) (send x comment-out-selection)))
             (add-edit-function "box-comment-out"  

collects/framework/private/sig.ss

@@ -182,6 +182,7 @@
      set-un/marshall
 
      save
+     silent-save
      read
      restore-defaults
      

collects/framework/private/text.ss

@@ -963,6 +963,7 @@ WARNING: printf is rebound in the body of the unit to always
                                   (for-each (lambda (b) (channel-put read-chan b))
                                             (bytes->list (string->bytes/utf-8 (string s/c))))]))
                              snips/chars)
+                   (channel-put read-chan (bytes-ref #"\n" 0))
                    (set! allow-tabify? #f)
                    (super on-local-char key)
                    (set! allow-tabify? #t)