Wrap lines setting up downloaded price with begin-edit and commit-edit

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/branches/gda-dev@15129 57a11ea4-9604-0410-9ed3-97b8803252fd
20 years ago · 864abdde24
parent fc3b97e525
commit 864abdde24
1 changed files with 2 additions and 0 deletions
--- a/src/scm/price-quotes.scm
+++ b/src/scm/price-quotes.scm
@ -581,12 +581,14 @@
                (string-append
                 currency-str ":" (gnc-commodity-get-mnemonic commodity))
                (begin
+				  (gnc-price-begin-edit gnc-price)
                  (gnc-price-set-commodity gnc-price commodity)
                  (gnc-price-set-currency gnc-price currency)
                  (gnc-price-set-time gnc-price gnc-time)
                  (gnc-price-set-source gnc-price "Finance::Quote")
                  (gnc-price-set-type gnc-price price-type)
                  (gnc-price-set-value gnc-price price)
+				  (gnc-price-commit-edit gnc-price)
                  gnc-price))))))

  (define (book-add-prices! book prices)