* scm/document-backend.scm (lookup-interface): error message if

using unknown interface.

* lily/horizontal-bracket.cc (make_enclosing_bracket): rename from
make_bracket.
(make_bracket): new function.

* scm/define-grobs.scm (all-grob-descriptions): set
between-length-limit to 1.0

diff --git a/ChangeLog b/ChangeLog
index 967f1f0d6ca315e95d4a36af4b96553374c06770..567489daf526a562c1d800495c066ba85943b2ce 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-10-10  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * scm/document-backend.scm (lookup-interface): error message if
+       using unknown interface.
+
        * lily/volta-bracket.cc (after_line_breaking): new function. Set
        edge-height.
 

diff --git a/lily/horizontal-bracket.cc b/lily/horizontal-bracket.cc
index fc19ab7bac16ebfd6c49de515a5b47a4a454c66e..56f9d32cfa56a4d7a924dd9be8332b7172402162 100644 (file)
--- a/lily/horizontal-bracket.cc
+++ b/lily/horizontal-bracket.cc
@@ -82,7 +82,9 @@ Horizontal_bracket::print (SCM smob)
   return b.smobbed_copy ();
 }
 
-ADD_INTERFACE (Horizontal_bracket, "horizontal-bracket-interface",
+ADD_INTERFACE (Horizontal_bracket,
+
+              "horizontal-bracket-interface",
               "A horizontal bracket encompassing notes.",
 
               /* props */                

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 3214924d4a74f2f305c286e0b30498bf78591d90..6f2a5337ebc1292e43892b4bff5bf90f12584186 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1698,7 +1698,6 @@
                                horizontal-bracket-interface                            
                                line-interface
                                text-interface
-                               bracket-interface
                                side-position-interface
                                font-interface))))))
 

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 0195ad9252fc0c84633415529aaa33c4d9199522..b79199ef5980aa5b9af18e2f0df69c49af045341 100644 (file)
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -139,10 +139,10 @@ node."
 ;;;;;;;;;;;;;;;;
 
 (define (lookup-interface name)
-  (let* ((entry (hashq-ref (ly:all-grob-interfaces) name '())))
-    (if (equal? entry #f)
-       (ly:error (_ "unknown interface: ~S") name))
-    entry))
+  (let* ((entry (hashq-ref (ly:all-grob-interfaces) name #f)))
+    (if entry
+       entry
+       (ly:error (_ "unknown Grob interface: ~S") name))))
 
 (define (all-interfaces-doc)
   (make <texi-node>