(urg, fukking emacs)

[lilypond.git] / scm / grob-description.scm

diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index 4e7b18589bc1858800ad30c1ab11e3301a2f15ef..3296cea3b0e779a3e11bf38a7630c009f90cdf6d 100644 (file)
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -1105,7 +1105,8 @@
 (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)