))
(AccidentalPlacement
. (
- (X-extent-callback . ,Accidental_placement::extent_callback)
+ (X-extent-callback . ,Axis_group_interface::group_extent_callback)
(left-padding . 0.3)
(right-padding . 0.3)
(meta . ((interfaces . (item-interface accidental-placement-interface))))
(map (lambda (x)
; (display (car x)) (newline)
- (set-object-property! (car x) 'translation-type? list?))
+ (set-object-property! (car x) 'translation-type? list?)
+ (set-object-property! (car x) 'is-grob? #t))
all-grob-descriptions)