X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fpaper.scm;h=a615f9564f13c9b38b8d4c16a9d3164cb2920d43;hb=8032af1c6c8a170df3bbd9aaa418b3e7a652c3dd;hp=c5bdbbeba4b577fae647d11ab15850adfe31ddc6;hpb=eb736251ddd70a4562264eed6cc021b281f0377a;p=lilypond.git

diff --git a/scm/paper.scm b/scm/paper.scm
index c5bdbbeba4..a615f9564f 100644
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -137,19 +137,3 @@
 	(beta (/ (* pi r-0) (* 2.0 h-inf))))
     (* alpha (atan (* beta b)))))
  
-;; see mf/feta-pendaal.mf
-(define pedal-kerning-alist '())
-(set! pedal-kerning-alist
-      (append 
-      '(
-	(("P" . "e") . -0.07)
-	(("e" . "d") . -0.53)
-	(("*" . "P") . 0.2)
-	)
-      pedal-kerning-alist))
-
-(define (pedal-kerning l r)
-  (let ((entry (assoc (cons l r) pedal-kerning-alist)))
-    (if entry
-	(cdr entry))))
-