From: hanwen <hanwen>
Date: Mon, 10 Oct 2005 14:17:19 +0000 (+0000)
Subject: * scm/document-backend.scm (lookup-interface): error message if
X-Git-Tag: release/2.7.16^2~99
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6c66b1b5d0d949c7b2119128fff921552a0bcc60;p=lilypond.git

* 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 967f1f0d6c..567489daf5 100644
--- 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 fc19ab7bac..56f9d32cfa 100644
--- 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 3214924d4a..6f2a5337eb 100644
--- 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 0195ad9252..b79199ef59 100644
--- 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>