From d9a5eddeaf8968204e605bc2201be888a834455a Mon Sep 17 00:00:00 2001
From: Neil Puttock <n.puttock@gmail.com>
Date: Thu, 7 Jan 2010 19:28:35 +0000
Subject: [PATCH] Robustify 'line-count lookup in
clef::print-modern-tab-if-set.
---
scm/tablature.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
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
--
2.39.5