Index: scm/output-lib.scm |
diff --git a/scm/output-lib.scm b/scm/output-lib.scm |
index af55cc8fde11557f70c010b2f827e073278275e8..5b7d441952b5fc7a6ed341b1fbfd292cb9332a83 100644 |
--- a/scm/output-lib.scm |
+++ b/scm/output-lib.scm |
@@ -574,6 +574,10 @@ and duration-log @var{log}." |
(define-public (accidental-interface::calc-alteration grob) |
(ly:pitch-alteration (ly:event-property (event-cause grob) 'pitch))) |
+(define-public (accidental-interface::glyph-name grob) |
+ (assoc-get (ly:grob-property grob 'alteration) |
+ standard-alteration-glyph-name-alist)) |
+ |
(define-public cancellation-glyph-name-alist |
'((0 . "accidentals.natural"))) |