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

[html-acct-table] compact gnc:html-acct-table-get-cell

Browse Source
This commit is contained in:
Christopher Lam 2019-12-02 18:19:28 +08:00
parent 8bf54ebfc1
commit 7ad4c4afbd
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnucash/report/report-system/html-acct-table.scm
View File

@ -850,12 +850,9 @@
(define (gnc:html-acct-table-get-cell acct-table row col) (define (gnc:html-acct-table-get-cell acct-table row col)
;; we'll only ever store one object in an html-table-cell ;; we'll only ever store one object in an html-table-cell
;; returns the first object stored in that cell ;; returns the first object stored in that cell
(let* ((cell (gnc:html-table-get-cell (and-let* ((cell (gnc:html-table-get-cell
(gnc:_html-acct-table-matrix_ acct-table) (gnc:_html-acct-table-matrix_ acct-table) row (1+ col))))
row (+ col 1)))) (car (gnc:html-table-cell-data cell))))
(and cell (car (gnc:html-table-cell-data cell)))
)
)
(define (gnc:html-acct-table-set-cell! acct-table row col obj) (define (gnc:html-acct-table-set-cell! acct-table row col obj)
(gnc:html-table-set-cell! (gnc:html-table-set-cell!