Doc: Add @funindex for \newSpacingSection (3185)

[lilypond.git] / ly / property-init.ly

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 7bd237b333c1274fda5ad28c8d65f66bfd0ed52e..633a12909ad1a0a42ccc6508b67e5118058605f7 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -393,19 +393,17 @@ phrasingSlurSolid =
 %% point and click
 
 pointAndClickOn  =
-#(define-music-function (parser location) ()
+#(define-void-function (parser location) ()
    (_i "Enable generation of code in final-format (e.g. pdf) files to reference the
 originating lilypond source statement;
 this is helpful when developing a score but generates bigger final-format files.")
-   (ly:set-option 'point-and-click #t)
-   (make-music 'SequentialMusic 'void #t))
+   (ly:set-option 'point-and-click #t))
 
 pointAndClickOff =
-#(define-music-function (parser location) ()
+#(define-void-function (parser location) ()
    (_i "Suppress generating extra code in final-format (e.g. pdf) files to point
 back to the lilypond source statement.")
-   (ly:set-option 'point-and-click #f)
-   (make-music 'SequentialMusic 'void #t))
+   (ly:set-option 'point-and-click #f))
 
 pointAndClickTypes =
 #(define-void-function (parser location types) (symbol-list-or-symbol?)
@@ -422,22 +420,22 @@ predefinedFretboardsOn =
 
 %% shape note heads
 
-aikenHeads      = \set shapeNoteStyles = #'#(do re miMirror fa sol la ti)
-aikenHeadsMinor = \set shapeNoteStyles = #'#(la ti do re miMirror fa sol)
+aikenHeads      = \set shapeNoteStyles = ##(do re miMirror fa sol la ti)
+aikenHeadsMinor = \set shapeNoteStyles = ##(la ti do re miMirror fa sol)
 funkHeads =
-  \set shapeNoteStyles = #'#(doFunk reFunk miFunk faFunk solFunk laFunk tiFunk)
+  \set shapeNoteStyles = ##(doFunk reFunk miFunk faFunk solFunk laFunk tiFunk)
 funkHeadsMinor =
-  \set shapeNoteStyles = #'#(laFunk tiFunk doFunk reFunk miFunk faFunk solFunk)
-sacredHarpHeads = \set shapeNoteStyles = #'#(fa sol la fa sol la mi)
-sacredHarpHeadsMinor = \set shapeNoteStyles = #'#(la mi fa sol la fa sol)
+  \set shapeNoteStyles = ##(laFunk tiFunk doFunk reFunk miFunk faFunk solFunk)
+sacredHarpHeads = \set shapeNoteStyles = ##(fa sol la fa sol la mi)
+sacredHarpHeadsMinor = \set shapeNoteStyles = ##(la mi fa sol la fa sol)
 southernHarmonyHeads =
-  \set shapeNoteStyles = #'#(faThin sol laThin faThin sol laThin miThin)
+  \set shapeNoteStyles = ##(faThin sol laThin faThin sol laThin miThin)
 southernHarmonyHeadsMinor =
-  \set shapeNoteStyles = #'#(laThin miThin faThin sol laThin faThin sol)
+  \set shapeNoteStyles = ##(laThin miThin faThin sol laThin faThin sol)
 walkerHeads =
-  \set shapeNoteStyles = #'#(doWalker reWalker miWalker faWalker solFunk laWalker tiWalker)
+  \set shapeNoteStyles = ##(doWalker reWalker miWalker faWalker solFunk laWalker tiWalker)
 walkerHeadsMinor =
-  \set shapeNoteStyles = #'#(laWalker tiWalker doWalker reWalker miWalker faWalker solFunk)
+  \set shapeNoteStyles = ##(laWalker tiWalker doWalker reWalker miWalker faWalker solFunk)
 
 
 %% shifts
@@ -557,10 +555,13 @@ showSplitTiedTabNotes = {
 textLengthOn = {
   \override TextScript.extra-spacing-width = #'(0 . 0)
   \override TextScript.extra-spacing-height = #'(-inf.0 . +inf.0)
+  \override TextScript.outside-staff-horizontal-padding = #0
 }
+
 textLengthOff = {
   \override TextScript.extra-spacing-width = #'(+inf.0 . -inf.0)
   \override TextScript.extra-spacing-height = #'(0 . 0)
+  \revert TextScript.outside-staff-horizontal-padding
 }