diff options
| author | David Kastrup <dak@gnu.org> | 2015-06-11 11:29:45 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2015-06-17 07:19:23 +0200 |
| commit | f8eb77d373bec0944ee3bab77d0f8dbe1193b86f (patch) | |
| tree | dc72eee3760dfcf95e85526553271eda8e6fbd8e /ly | |
| parent | 4c43f23aacb1c65b88cdd4602ae46f1540422a3b (diff) | |
Issue 4445: Use \override music function in a few cases
Diffstat (limited to 'ly')
| -rw-r--r-- | ly/music-functions-init.ly | 22 |
1 files changed, 6 insertions, 16 deletions
diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly index 4e7e1d4105..475c2cec90 100644 --- a/ly/music-functions-init.ly +++ b/ly/music-functions-init.ly @@ -119,10 +119,10 @@ form of a spanner event, @var{property} may also have the form (member 'spanner-interface (assoc-get 'interfaces (assoc-get 'meta description)))) - #{ - \override #item . #property = - #(value-for-spanner-piece arg) - #} + (override (append item (if (symbol? property) + (list property) + property)) + (value-for-spanner-piece arg)) (begin (ly:input-warning (*location*) (_ "not a spanner name, `~a'") name) (make-music 'Music)))))) @@ -890,9 +890,7 @@ appropriate tweak applied.") property)) (*location*) #:default 'Bottom #:min 3 #:max 3))) (if prop-path - #{ - \override #prop-path = #(offsetter (third prop-path) offsets) - #} + (override prop-path (offsetter (third prop-path) offsets)) (make-music 'Music))))) omit = @@ -1772,15 +1770,7 @@ property (inside of an alist) is tweaked.") value (ly:music-property item 'tweaks)))) item) - ;; We could just throw this at \override and let it sort this - ;; out on its own, but this way we should get better error - ;; diagnostics. - (let ((p (check-grob-path - (append item (if (symbol? prop) (list prop) prop)) (*location*) - #:default 'Bottom #:min 3))) - (if p - #{ \override #p = #value #} - (make-music 'Music))))) + (override (append item (if (symbol? prop) (list prop) prop)) value))) undo = #(define-music-function (music) |