* scm/define-markup-commands.scm (whiteout): do not force

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

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 1a940b13834e8c2dd79b0b60a367b82c9a1b28f2..83c575001036be13bd3b8e811b83f1715bd65997 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -126,8 +126,7 @@ 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
-                                (make-with-color-markup black arg)))
+  (let* ((stil (interpret-markup layout props arg))
         (white
          (interpret-markup layout props
                            (make-with-color-markup