From 9b5f30f3cbde237c4f7b5f58b5af18d076c5f6dd Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Fri, 11 May 2001 19:27:43 +0000 Subject: [PATCH] 2001-05-11 Bill Gribble * src/scm/main-window.scm: force-output when saving param files. otherwise they don't get written until program exit, which can cause problems. Add newlines to acct tree output. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4164 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 6 ++++++ src/scm/main-window.scm | 8 +++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index f7075efa71..a1bad8f427 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2001-05-11 Bill Gribble + + * src/scm/main-window.scm: force-output when saving param files. + otherwise they don't get written until program exit, which can + cause problems. Add newlines to acct tree output. + 2001-05-11 Dave Peticolas * src/doc/design/engine.texinfo: update docs diff --git a/src/scm/main-window.scm b/src/scm/main-window.scm index d38aa46494..490c7e0859 100644 --- a/src/scm/main-window.scm +++ b/src/scm/main-window.scm @@ -108,7 +108,7 @@ the account instead of opening a register.") #f)) (simple-format #f " (hash-set! gnc:*acct-tree-options* ~A options)\n" id) (simple-format - #f " \"gnc-acct-tree:id=~S\")" id))) + #f " \"gnc-acct-tree:id=~S\")\n\n" id))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -140,8 +140,10 @@ the account instead of opening a register.") #f)) (hash-fold (lambda (k v p) (display (gnc:acct-tree-generate-restore-forms v k)) #t) - #t gnc:*acct-tree-options*))))) - (gnc:main-window-save (gnc:get-ui-data) book-url) + #t gnc:*acct-tree-options*) + + (force-output))) + (gnc:main-window-save (gnc:get-ui-data) book-url))) (let ((dead-reports '())) ;; get a list of the reports we'll be needing to nuke