From 33d9fd21688ce5c8f72e1bb5d656de94500f0ab1 Mon Sep 17 00:00:00 2001
From: Neil Puttock <n.puttock@gmail.com>
Date: Mon, 16 Nov 2009 00:28:44 +0000
Subject: [PATCH] Remove unused code in fret-number-tablature-format.

---
 scm/translation-functions.scm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

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
-- 
2.39.5