X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Ftime-signature-settings.scm;h=2649092593cf4348ac4484f4c70fc8e7338a80a5;hb=HEAD;hp=083d18b9a1dc31d4c556663c3c7e16de7679013f;hpb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;p=lilypond.git

diff --git a/scm/time-signature-settings.scm b/scm/time-signature-settings.scm
index 083d18b9a1..2649092593 100644
--- a/scm/time-signature-settings.scm
+++ b/scm/time-signature-settings.scm
@@ -394,15 +394,6 @@ a fresh copy of the list-head is made."
 (add-simple-time-signature-style 'C make-c-time-signature-markup)
 (add-simple-time-signature-style 'default make-c-time-signature-markup)
 
-(define-public (make-single-c-time-signature-markup fraction)
-  "Make markup for the `single-C' time signature style."
-  (let ((n (car fraction)))
-    (if (or (= n 2) (= n 4)) ; numerator only
-        (make-glyph-time-signature-markup 'C (cons n n))
-        (make-compound-meter-markup n))))
-
-(add-simple-time-signature-style 'single-C make-single-c-time-signature-markup)
-
 ;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 ;;; Measure length calculation of (possibly complex) compound time signatures