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

@@ -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)))