REFACTOR: initialize accounts/filter by to null list

This commit is contained in:
Christopher Lam 2017-12-10 20:18:31 +08:00
parent 8e4d72b544
commit b6c6906bb1

View File

@ -358,14 +358,7 @@ tags within description, notes or memo. ")
gnc:pagename-accounts optname-filterby
"b" (N_ "Filter on these accounts.")
(lambda ()
;; FIXME : gnc:get-current-accounts disappeared.
(let* ((current-accounts '())
(root (gnc-get-current-root-account))
(num-accounts (gnc-account-n-children root))
(first-account (gnc-account-nth-child root 0)))
(cond ((not (null? current-accounts)) (list (car current-accounts)))
((positive? num-accounts) (list first-account))
(else '()))))
'())
#f #t))
(gnc:register-trep-option