r16408 - gnucash/trunk/src/scm - Remove old code unused since r14253.

[Andreas Köhler]

Author: andi5
Date: 2007-08-09 07:35:45 -0400 (Thu, 09 Aug 2007)
New Revision: 16408
Trac: http://svn.gnucash.org/trac/changeset/16408

Modified:
   gnucash/trunk/src/scm/doc.scm
Log:
Remove old code unused since r14253.


Modified: gnucash/trunk/src/scm/doc.scm
===================================================================
--- gnucash/trunk/src/scm/doc.scm	2007-08-08 22:28:09 UTC (rev 16407)
+++ gnucash/trunk/src/scm/doc.scm	2007-08-09 11:35:45 UTC (rev 16408)
@@ -66,33 +66,3 @@
 
 (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)))