From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 10 Sep 2004 21:54:03 +0000 (+0000)
Subject: (all-internal-grob-properties):
X-Git-Tag: release/2.3.16~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d6dc165dec8a15a7c09ebb683157ffb86b519bd1;p=lilypond.git

(all-internal-grob-properties):
add adjacent-hairpins property.
---

diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 722ba70dcf..832bc727bb 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -515,7 +515,9 @@ sizes (like the dynamic @b{p} and @b{f}) on their baselines.")
      (apply define-internal-grob-property x))
    
    `(
+     
      (accidental-grobs ,list? "Alist with (NOTENAME . GROBLIST) entries")
+     (adjacent-hairpins ,grob-list? "List of directly neighboring hairpins")
      (after-line-breaking-callback ,procedure? "This procedure is called after line breaking. Its return value is ignored.")     
      (all-elements ,grob-list? "list of all grobs in this line. Its
 function is to protect objects from being garbage collected.")