Imported Upstream version 2.16.0

[lilypond.git] / scm / document-music.scm

diff --git a/scm/document-music.scm b/scm/document-music.scm
index 93b7b362159280679725ec85ce09aa0a8d002057..7d7e2a9942b974169b722eb2ec39b2e33200c390 100644 (file)
--- a/scm/document-music.scm
+++ b/scm/document-music.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 1998--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 1998--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
@@ -16,6 +16,8 @@
 ;;;; You should have received a copy of the GNU General Public License
 ;;;; along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
+(define doc-context (ly:make-global-context $defaultlayout))
+
 (define (music-props-doc)
   (make <texi-node>
     #:name "Music properties"
@@ -31,7 +33,7 @@
 (define music-types->names (make-hash-table 61))
 (filter-map (lambda (entry)
              (let* ((class (ly:camel-case->lisp-identifier (car entry)))
-                    (classes (ly:make-event-class class)))
+                    (classes (ly:make-event-class doc-context class)))
                (if classes
                    (map
                     (lambda (cl)
@@ -88,7 +90,7 @@
   (let* ((namesym  (car obj))
         (props (cdr obj))
         (class (ly:camel-case->lisp-identifier namesym))
-        (classes (ly:make-event-class class))
+        (classes (ly:make-event-class doc-context class))
         (accept-list (if classes
                          (human-listify
                           (map ref-ify