From: Neil Puttock <n.puttock@gmail.com>
Date: Mon, 16 Nov 2009 00:28:44 +0000 (+0000)
Subject: Remove unused code in fret-number-tablature-format.
X-Git-Tag: release/2.13.8-1~32
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=33d9fd21688ce5c8f72e1bb5d656de94500f0ab1;p=lilypond.git

Remove unused code in fret-number-tablature-format.
---

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 365f6883d1..3fb632bb62 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -370,13 +370,7 @@
 ;; Compute the text grob-property
 (define-public (fret-number-tablature-format string context event)
   (let* ((tuning (ly:context-property context 'stringTunings))
-	 (pitch (ly:event-property event 'pitch))
-	 (is-harmonic (apply
-		       functional-or
-		       (map
-			(lambda (ev)
-			  (eq? 'harmonic-event (ly:event-property ev 'class)))
-			(ly:event-property event 'articulations)))))
+	 (pitch (ly:event-property event 'pitch)))
 
     (make-whiteout-markup
      (make-vcenter-markup