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

diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 365f6883d1c1cd1e328d8ed3ca1a177809a4ab2a..3fb632bb622381d13dd13fb90b77a63fa22a6e83 100644 (file)
--- 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