mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
[html-table] unused gnc:html-table-merge
This function is not used through code.
This commit is contained in:
parent
03b57e5153
commit
39e976045b
@ -613,18 +613,6 @@
|
||||
;; Feel free to contribute! :-)
|
||||
;;
|
||||
|
||||
;; This function was moved here from balance-sheet.scm.
|
||||
;; This function "stacks" the two tables vertically.
|
||||
(define (gnc:html-table-merge t1 t2)
|
||||
(begin
|
||||
(gnc:html-table-set-data! t1
|
||||
(append
|
||||
(gnc:html-table-data t2)
|
||||
(gnc:html-table-data t1)))
|
||||
(gnc:html-table-set-num-rows-internal!
|
||||
t1 (+ (gnc:html-table-num-rows t1)
|
||||
(gnc:html-table-num-rows t2)))))
|
||||
|
||||
(define (gnc:html-table-render table doc)
|
||||
(let* ((retval '())
|
||||
(push (lambda (l) (set! retval (cons l retval)))))
|
||||
|
@ -620,7 +620,6 @@
|
||||
(export gnc:html-table-set-cell/tag!)
|
||||
(export gnc:html-table-append-column!)
|
||||
(export gnc:html-table-prepend-column!)
|
||||
(export gnc:html-table-merge)
|
||||
(export gnc:html-table-render)
|
||||
|
||||
;; html-text.scm
|
||||
|
Loading…
Reference in New Issue
Block a user