From 4126b8bee3489a7d6386263a64cd5ad5eca20d96 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20K=C3=B6hler?= Date: Thu, 9 Aug 2007 11:35:45 +0000 Subject: [PATCH] Remove old code unused since r14253. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16408 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/doc.scm | 30 ------------------------------ 1 file changed, 30 deletions(-) diff --git a/src/scm/doc.scm b/src/scm/doc.scm index e949ffb9c4..ead96e4ca3 100644 --- a/src/scm/doc.scm +++ b/src/scm/doc.scm @@ -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)))