Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / define-markup-commands.scm

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index d450ec24682532618c9c6730fe8a3cd70607c60d..1a940b13834e8c2dd79b0b60a367b82c9a1b28f2 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -126,7 +126,8 @@ circle of diameter 0 (ie sharp corners)."
 
 (define-markup-command (whiteout layout props arg) (markup?)
   "Provide a white underground for @var{arg}"
-  (let* ((stil (interpret-markup layout props arg))
+  (let* ((stil (interpret-markup layout props
+                                (make-with-color-markup black arg)))
         (white
          (interpret-markup layout props
                            (make-with-color-markup
@@ -330,10 +331,8 @@ gsave /ecrm10 findfont
         (text-width (apply + text-widths))
         (text-dir (chain-assoc-get 'text-direction props RIGHT))
         (word-count (length stencils))
-        (word-space (chain-assoc-get 'word-space props 1))
-        (prop-line-width (chain-assoc-get 'line-width props #f))
-        (line-width (if prop-line-width prop-line-width
-                        (ly:output-def-lookup layout 'line-width)))
+        (word-space (chain-assoc-get 'word-space props))
+        (line-width (chain-assoc-get 'line-width props))
         (fill-space
                (cond
                        ((= word-count 1) 
@@ -466,9 +465,7 @@ determines the space between each markup in @var{args}."
 (define (wordwrap-markups layout props args justify)
   (let*
       ((baseline-skip (chain-assoc-get 'baseline-skip props))
-       (prop-line-width (chain-assoc-get 'line-width props #f))
-       (line-width (if prop-line-width prop-line-width
-                      (ly:output-def-lookup layout 'line-width)))
+       (line-width (chain-assoc-get 'line-width props))
        (word-space (chain-assoc-get 'word-space props))
        (text-dir (chain-assoc-get 'text-direction props RIGHT)) 
        (lines (wordwrap-stencils