patch::: 1.3.58.jcn1

[lilypond.git] / scm / paper.scm

diff --git a/scm/paper.scm b/scm/paper.scm
index c5bdbbeba4b577fae647d11ab15850adfe31ddc6..a615f9564f13c9b38b8d4c16a9d3164cb2920d43 100644 (file)
--- 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))))
-