IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Evaluate default function in gnc:make-account-sel-limited-option.

Browse Source
This commit is contained in:
John Ralls
2021-07-13 09:49:27 -07:00
parent 6eb5dfed51
commit 3f89d063eb
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
libgnucash/app-utils/options.scm
View File

@@ -173,7 +173,8 @@
(gnc-make-account-list-limited-option section name key docstring (default) permitted))
(define-public (gnc:make-account-sel-limited-option section name key docstring default validator permitted)
(issue-deprecation-warning "gnc:make-account-sel-limited-option is deprecated. Make and register the option in one command with gnc-register-account-sel-limited-option.")
(gnc-make-account-sel-limited-option section name key docstring (default) permitted))
(let ((defval (if default (default) #f)))
(gnc-make-account-sel-limited-option section name key docstring defval permitted)))
(define-public (gnc:make-account-sel-option section name key docstring default validator)
(let ((defval (if default (default) #f)))
(gnc-make-account-sel-limited-option section name key docstring defval '())))