* mf/feta-toevallig.mf: tweak for bottom of flat sign.

[lilypond.git] / scm / documentation-lib.scm

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index af8a0fbe82b6721ad4c263846a62e66b8a66b2a6..9a45e88c3215fa4bac40509603270d448f39cfe4 100644 (file)
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -3,10 +3,13 @@
 ;;;
 ;;; source file of the GNU LilyPond music typesetter
 ;;; 
-;;; (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;; (c)  2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 ;;; Jan Nieuwenhuizen <janneke@gnu.org>
 
-(use-modules (oop goops))
+(use-modules (oop goops)
+            (srfi srfi-13)
+            (srfi srfi-1)
+            )
 
 (define-class <texi-node> ()
   (children #:init-value '() #:accessor node-children #:init-keyword #:children)
@@ -95,7 +98,7 @@
 . string-to-use)
 "
   (string-append
-   "\n@table @samp\n"
+   "\n@table @asis\n"
    (apply string-append (map one-item->texi items-alist))
    "\n@end table\n"))
 
@@ -114,7 +117,7 @@
   (apply string-append
         (map (lambda (x)
                (string-append
-               (pad-string-to 
+               (string-pad-right 
                 (string-append "\n* " (car x) ":: ")
                 (+ maxwid 8)
                 )
@@ -178,7 +181,6 @@
   (display (string-append "\nWriting " x " ... ") (current-error-port)))
 
 
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; property  stuff.
 
@@ -211,7 +213,6 @@
        "(unset)"
        (scm->texi (cdr handle)))))
 
-
 (define (backend-property->texi sym)
   (property->texi 'backend sym))
 
@@ -222,14 +223,11 @@ containing default values."
       ((without (property->texi where sym))
        (rv
 
-    (cons (car without)
-         (if (eq? alist #f)
-             (cdr without)
-             (string-append
-              (cdr without)
-              "\nDefault value: "
-              (document-property-value sym alist)))))
-
-       )
-;    (display rv)
-    rv  ))
+       (cons (car without)
+             (if (eq? alist #f)
+                 (cdr without)
+                 (string-append
+                  (cdr without)
+                  "\nDefault value: "
+                  (document-property-value sym alist))))))
+    rv))