X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fproperty-init.ly;h=c5bf597b6e428dd8b0945cece03e2c944a25b73b;hb=12fecbc3e7e848785dbb4aa2e4258ca32eacedbe;hp=2de518fb461e706e684b950baabf79e1eec60a7c;hpb=36c53afc9a92d7cea1a98563ef1913e764c56862;p=lilypond.git

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 2de518fb46..c5bf597b6e 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -14,6 +14,13 @@ defaultNoteHeads =
    (revert-head-style '(NoteHead TabNoteHead)))
 
 
+accidentalStyle =
+#(define-music-function
+   (parser location style) (string-or-symbol?)
+   (_i "Set @var{style} as the accidental style to use.")
+   (set-accidental-style (if (string? style)
+                             (string->symbol style)
+                             style)))
 
 %% arpeggios
 
@@ -343,6 +350,10 @@ back to the lilypond source statement.")
    (ly:set-option 'point-and-click #f)
    (make-music 'SequentialMusic 'void #t))
 
+pointAndClickTypes =
+#(define-void-function (parser location types) (list-or-symbol?)
+  (_i "Set a type or list of types (such as @code{#'note-event}) for which point-and-click info is generated.")
+  (ly:set-option 'point-and-click types))
 
 %% predefined fretboards