From: Neil Puttock <n.puttock@gmail.com>
Date: Wed, 19 Aug 2009 19:42:52 +0000 (+0100)
Subject: Use ly:staff-symbol-staff-space.
X-Git-Tag: release/2.13.4-1~180^2~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6b61628b5e49f09a16301b9821c4ec8adf9362aa;p=lilypond.git

Use ly:staff-symbol-staff-space.
---

diff --git a/scm/tablature.scm b/scm/tablature.scm
index e44b95b43f..d28f2fc483 100644
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -80,7 +80,7 @@
         ;; 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))
-               (staff-space (ly:grob-property staff-symbol 'staff-space 1)))
+               (staff-space (ly:staff-symbol-staff-space grob)))
 
           (grob-interpret-markup grob (make-customTabClef-markup line-count
                                                                  staff-space)))