CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/10/10 14:17:19
Modified files:
. : ChangeLog
lily : horizontal-bracket.cc
scm : define-grobs.scm document-backend.scm
Log message:
* 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
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.4168&tr2=1.4169&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/lily/horizontal-bracket.cc.diff?tr1=1.28&tr2=1.29&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/define-grobs.scm.diff?tr1=1.244&tr2=1.245&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/document-backend.scm.diff?tr1=1.25&tr2=1.26&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.4168 lilypond/ChangeLog:1.4169
--- lilypond/ChangeLog:1.4168 Mon Oct 10 13:08:12 2005
+++ lilypond/ChangeLog Mon Oct 10 14:17:19 2005
@@ -1,5 +1,8 @@
2005-10-10 Han-Wen Nienhuys <[EMAIL PROTECTED]>
+ * scm/document-backend.scm (lookup-interface): error message if
+ using unknown interface.
+
* lily/volta-bracket.cc (after_line_breaking): new function. Set
edge-height.
Index: lilypond/lily/horizontal-bracket.cc
diff -u lilypond/lily/horizontal-bracket.cc:1.28
lilypond/lily/horizontal-bracket.cc:1.29
--- lilypond/lily/horizontal-bracket.cc:1.28 Mon Oct 10 13:08:13 2005
+++ lilypond/lily/horizontal-bracket.cc Mon Oct 10 14:17:19 2005
@@ -82,7 +82,9 @@
return b.smobbed_copy ();
}
-ADD_INTERFACE (Horizontal_bracket, "horizontal-bracket-interface",
+ADD_INTERFACE (Horizontal_bracket,
+
+ "horizontal-bracket-interface",
"A horizontal bracket encompassing notes.",
/* props */
Index: lilypond/scm/define-grobs.scm
diff -u lilypond/scm/define-grobs.scm:1.244 lilypond/scm/define-grobs.scm:1.245
--- lilypond/scm/define-grobs.scm:1.244 Mon Oct 10 13:08:13 2005
+++ lilypond/scm/define-grobs.scm Mon Oct 10 14:17:19 2005
@@ -1698,7 +1698,6 @@
horizontal-bracket-interface
line-interface
text-interface
- bracket-interface
side-position-interface
font-interface))))))
Index: lilypond/scm/document-backend.scm
diff -u lilypond/scm/document-backend.scm:1.25
lilypond/scm/document-backend.scm:1.26
--- lilypond/scm/document-backend.scm:1.25 Tue Apr 12 22:49:25 2005
+++ lilypond/scm/document-backend.scm Mon Oct 10 14:17:19 2005
@@ -139,10 +139,10 @@
;;;;;;;;;;;;;;;;
(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>
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
