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

Remove old code unused since r14253.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16408 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Andreas Köhler 2007-08-09 11:35:45 +00:00
parent 826ac6e8c5
commit 4126b8bee3
1 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/scm/doc.scm
View File

@ -66,33 +66,3 @@ string and 'directories' must be a list of strings."
(define (gnc:find-doc-file file)
(gnc:find-localized-file file (gnc:config-var-value-get gnc:*doc-path*)))
(define (remove-i18n-macros input)
(cond ((null? input) input)
((list? input)
(cond ((eq? (car input) 'N_) (cadr input))
(else (cons (remove-i18n-macros (car input))
(remove-i18n-macros (cdr input))))))
(else input)))
(define (fill-out-topics input)
(define (first-non-blank-url input)
(cond ((null? input) "")
((list? input)
(cond ((and (string? (car input)) (not (eq? "" (cadr input))))
(cadr input))
(else (let ((first (first-non-blank-url (car input))))
(if (not (eq? "" first))
first
(first-non-blank-url (cdr input)))))))
(else "")))
(cond ((null? input) input)
((list? input)
(cond ((and (string? (car input)) (eq? "" (cadr input)))
(cons (car input)
(cons (first-non-blank-url (caddr input))
(fill-out-topics (cddr input)))))
(else (cons (fill-out-topics (car input))
(fill-out-topics (cdr input))))))
(else input)))