* scm/chord-name.scm: remove new-chord-name-brew-molecule ; use

[lilypond.git] / scm / chord-name.scm

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 7ed0f184d45a2def72881b8407353c1bc0ea6d4c..c15cb36ec5869d27d0fe16aae375d368ff9864b9 100644 (file)
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -121,25 +121,3 @@ FOOBAR-MARKUP) if OMIT-ROOT is given and non-false.
         (alist (map chord-to-exception-entry elts)))
     (filter (lambda (x) (cdr x)) alist)))
 
-
-(define-public (new-chord-name-brew-molecule grob)
-  (let*
-      (
-       (ws (ly:get-grob-property grob 'word-space))
-       (markup (ly:get-grob-property grob 'text))
-       (molecule (interpret-markup grob
-                                  (cons '((word-space . 0.0))
-                                        (Font_interface::get_property_alist_chain grob))
-                                  markup))
-       )
-
-    ;;
-    ;; chord names aren't in staffs, so WS is in global staff space.
-    (if (number? ws)
-       (ly:molecule-combine-at-edge
-        molecule
-        X RIGHT (ly:make-molecule "" (cons 0 ws) '(-1 . 1) )
-        0.0)
-       molecule)
-    ))
-