[register] reduce tempo of updating progressbar

every 200 splits instead of every split
This commit is contained in:
Christopher Lam
2020-09-12 20:07:43 +08:00
parent a0f2ccc97e
commit d0b8cd27c5

View File

@@ -573,9 +573,6 @@
(work-done 0)
(odd-row? #t))
(unless (zero? work-to-do)
(gnc:report-percent-done (* 100 (/ work-done work-to-do))))
(cond
;; ----------------------------------
@@ -611,6 +608,9 @@
;; process the splits list
;; ----------------------------------
(else
(when (zero? (modulo work-done 200))
(gnc:report-percent-done (* 100 (/ work-done work-to-do))))
(let* ((current (car splits))
(current-row-style (if (or multi-rows? odd-row?)
"normal-row"