IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2026-09-03 20:53:02 -05:00
Code Issues Packages Projects Releases Wiki Activity

2001-05-11 Bill Gribble <grib@billgribble.com>

Browse Source 
* 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
This commit is contained in:
Dave Peticolas
2001-05-11 19:27:43 +00:00
parent b20c018bad
commit 9b5f30f3cb
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ChangeLog
+6
View File
@@ -1,3 +1,9 @@
2001-05-11 Bill Gribble <grib@billgribble.com>
* 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 <dave@krondo.com> 2001-05-11 Dave Peticolas <dave@krondo.com>
* src/doc/design/engine.texinfo: update docs * src/doc/design/engine.texinfo: update docs
src/scm/main-window.scm
+5 -3
View File
@@ -108,7 +108,7 @@ the account instead of opening a register.") #f))
(simple-format (simple-format
#f " (hash-set! gnc:*acct-tree-options* ~A options)\n" id) #f " (hash-set! gnc:*acct-tree-options* ~A options)\n" id)
(simple-format (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 (hash-fold
(lambda (k v p) (lambda (k v p)
(display (gnc:acct-tree-generate-restore-forms v k)) #t) (display (gnc:acct-tree-generate-restore-forms v k)) #t)
#t gnc:*acct-tree-options*))))) #t gnc:*acct-tree-options*)
(gnc:main-window-save (gnc:get-ui-data) book-url)
(force-output)))
(gnc:main-window-save (gnc:get-ui-data) book-url)))
(let ((dead-reports '())) (let ((dead-reports '()))
;; get a list of the reports we'll be needing to nuke ;; get a list of the reports we'll be needing to nuke