patch::: 1.1.5.jcn2: extender

[lilypond.git] / lily / lookup.cc

diff --git a/lily/lookup.cc b/lily/lookup.cc
index 35d9774c14eb38a363c3121057d29069db3e126a..63259a3cc7b9eb0b62726184070973f18eff8bed 100644 (file)
--- a/lily/lookup.cc
+++ b/lily/lookup.cc
@@ -203,6 +203,18 @@ Lookup::dynamic (String st) const
   return (*symtables_p_) ("dynamics")->lookup (st);
 }
 
+Atom
+Lookup::extender (Real width) const
+{
+  Atom a = (*symtables_p_) ("param")->lookup ("extender");
+  Array<Real> arr;
+  arr.push (width);
+  a.lambda_ = (lambda_scm (a.str_, arr));
+  a.str_ = "extender";
+  a.font_ = font_;
+  return a;
+}
+
 Atom
 Lookup::fill (Box b) const
 {