lilypond-manuals.css: edit color scheme and some spacing

[lilypond.git] / scm / accreg.scm

diff --git a/scm/accreg.scm b/scm/accreg.scm
index eba1bb473355479a36a50e0727cfa52dbef9b04f..6aea74c6613f1b55134d5d09dbc8006960d5e369 100644 (file)
--- a/scm/accreg.scm
+++ b/scm/accreg.scm
@@ -55,7 +55,7 @@ for examples."
                                  (ly:assoc-get 'reedbanks register))))))))
 
      (define-public ,set-symbol
-       (define-music-function (parser position register)
+       (define-music-function (register)
          (string?)
          ,(format #f "Equivalent to @code{<>^\\markup \\~a@var{REGISTER}}."
                   set-symbol)
@@ -66,7 +66,7 @@ for examples."
             'direction
             1
             'text
-            (markup ,(symbol->keyword set-symbol) register))))))))
+            (,(string->symbol (format #f "make-~a-markup" set-symbol)) register))))))))
 
 
 (define-register-set discant