From: Neil Puttock <n.puttock@gmail.com>
Date: Thu, 7 Jan 2010 19:28:35 +0000 (+0000)
Subject: Robustify 'line-count lookup in clef::print-modern-tab-if-set.
X-Git-Tag: release/2.13.11-1~81
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d9a5eddeaf8968204e605bc2201be888a834455a;p=lilypond.git

Robustify 'line-count lookup in clef::print-modern-tab-if-set.
---

diff --git a/scm/tablature.scm b/scm/tablature.scm
index ae617bd47f..8d15fceeb4 100644
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -99,7 +99,9 @@
     (if (string=? glyph "markup.moderntab")
         ;; if it is "moderntab", we'll draw it
         (let* ((staff-symbol (ly:grob-object grob 'staff-symbol))
-               (line-count (ly:grob-property staff-symbol 'line-count))
+               (line-count (if (ly:grob? staff-symbol)
+			       (ly:grob-property staff-symbol 'line-count)
+			       0))
                (staff-space (ly:staff-symbol-staff-space grob)))
 
           (grob-interpret-markup grob (make-customTabClef-markup line-count