(brew-new-markup-molecule): robustness: don't

crash when processing '() markup

diff --git a/ChangeLog b/ChangeLog
index 330b1a5151315142f8da9b6b72df66b95eec64d1..8448e2ecc3316844cfbee8137f0481283f242712 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,13 @@
 2003-03-05  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * scm/new-markup.scm (brew-new-markup-molecule): robustness: don't
+       crash when processing '() markup
+
+       * input/regression/breathing-sign.ly (texidoc): add caesura example.
+
        * lily/breathing-sign.cc (railtracks): another caesura.
 
-       * mf/feta-schrift.mf: caesura symbol
+       * mf/feta-schrift.mf: caesura symbol. 
 
 2003-03-04  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 

diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely
index e4533d49999c0e6b6111d95d49c0029f8dd281be..905b2d2436c7daa4b7cfab710be7fd9eb2a1f72d 100644 (file)
--- a/Documentation/user/refman.itely
+++ b/Documentation/user/refman.itely
@@ -5389,6 +5389,7 @@ longer than one line, can be produced by setting @code{raggedright} to
 true in the @code{\paper} block.
 
 @cindex page layout
+@cindex vertical spacing
 
 The page layout process happens outside lilypond. Ly2dvi sets page
 layout instructions. Ly2dvi responds to the following variables in the

diff --git a/scm/new-markup.scm b/scm/new-markup.scm
index b11ab35123c0c1d1769444fcc23d682d4fdd0b47..ad4a34a745a66ffcfe6ab38c16565ca8682b53d1 100644 (file)
--- a/scm/new-markup.scm
+++ b/scm/new-markup.scm
@@ -530,11 +530,16 @@ against SIGNATURE, reporting MAKE-NAME as the user-invoked function.
 
 
 (define-public (brew-new-markup-molecule grob)
-  (interpret-markup grob
-                   (Font_interface::get_property_alist_chain grob)
-                   (ly:get-grob-property grob 'text)
-                   )
-  )
+  (let*
+      ((t     (ly:get-grob-property grob 'text))
+       )
+    (if (null? t)
+       '()
+       (interpret-markup grob
+                         (Font_interface::get_property_alist_chain grob)
+                         t
+                         ))
+  ))
 
 (define-public empty-markup `(,simple-markup ""))