*** empty log message ***

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

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index d37d7970873e111a3028f15d973166a121742573..5f13bd4bac6a7e90b800f362e344c75ce600887c 100644 (file)
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -42,7 +42,7 @@
        (node-children node)))
 
 (define (processing name)
-  (display (string-append "\nProcessing " name " ... ") (current-error-port)))
+  (ly:message (_ "Processing ~S...") name))
 
 (define (self-evaluating? x)
   (or (number? x) (string? x) (procedure? x) (boolean? x)))
@@ -157,7 +157,7 @@
    (else (string-append (car lst) ", " (human-listify (cdr lst))))))
 
 (define (writing-wip x)
-  (display (string-append "\nWriting " x " ... ") (current-error-port)))
+  (ly:message (_ "Writing ~S...") x))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -179,7 +179,7 @@ with init values from ALIST (1st optional argument)
         (handle (assoc sym alist)))
 
     (if (eq? desc #f)
-       (error "No description for property ~S" sym))
+       (ly:error (_ "can't find description for property ~S") sym))
     
     (cons
      (string-append "@code{" name "} "