X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fgregorian-init.ly;h=750dcda18c0e971a1550bba354e24a43fb1b2906;hb=67802a2ceea52930d78e5cdf7bd4e8e1d2374fe0;hp=75af5698f01e82e946bea28ce012118e96dabac7;hpb=01105e2a179bbf14da0923f7e1f4093cd9bcd8c5;p=lilypond.git

diff --git a/ly/gregorian-init.ly b/ly/gregorian-init.ly
index 75af5698f0..750dcda18c 100644
--- a/ly/gregorian-init.ly
+++ b/ly/gregorian-init.ly
@@ -1,4 +1,4 @@
-\version "1.7.16"
+\version "1.7.18"
 
 %%%%%%%%
 %%%%%%%% shortcuts common for all styles of gregorian chant notation
@@ -8,31 +8,27 @@
 % declare head prefix shortcuts
 %
 virga =
-  \once \property Voice.LigatureHead \override #'virga = ##t
+  \once \property Voice.NoteHead \override #'virga = ##t
 stropha =
-  \once \property Voice.LigatureHead \override #'stropha = ##t
+  \once \property Voice.NoteHead \override #'stropha = ##t
 inclinatum =
-  \once \property Voice.LigatureHead \override #'inclinatum = ##t
+  \once \property Voice.NoteHead \override #'inclinatum = ##t
 auctum =
-  \once \property Voice.LigatureHead \override #'auctum = ##t
-aucta =
-  \once \property Voice.LigatureHead \override #'auctum = ##t
+  \once \property Voice.NoteHead \override #'auctum = ##t
 descendens =
-  \once \property Voice.LigatureHead \override #'descendens = ##t
+  \once \property Voice.NoteHead \override #'descendens = ##t
 ascendens =
-  \once \property Voice.LigatureHead \override #'ascendens = ##t
+  \once \property Voice.NoteHead \override #'ascendens = ##t
 pes =
-  \once \property Voice.LigatureHead \override #'pes-or-flexa = ##t
+  \once \property Voice.NoteHead \override #'pes-or-flexa = ##t
 flexa =
-  \once \property Voice.LigatureHead \override #'pes-or-flexa = ##t
-semivocalis =
-  \once \property Voice.LigatureHead \override #'semivocalis = ##t
+  \once \property Voice.NoteHead \override #'pes-or-flexa = ##t
 oriscus =
-  \once \property Voice.LigatureHead \override #'oriscus = ##t
+  \once \property Voice.NoteHead \override #'oriscus = ##t
 quilisma =
-  \once \property Voice.LigatureHead \override #'quilisma = ##t
+  \once \property Voice.NoteHead \override #'quilisma = ##t
 deminutum =
-  \once \property Voice.LigatureHead \override #'deminutum = ##t
+  \once \property Voice.NoteHead \override #'deminutum = ##t
 
 %
 % declare divisiones shortcuts
@@ -66,3 +62,7 @@ finalis = {
   \once \property Voice.BreathingSign \override #'Y-offset-callbacks = #'()
   \breathe
 }
+
+episemInitium = #(make-span-event 'TextSpanEvent START)
+
+episemFinis = #(make-span-event 'TextSpanEvent STOP)