From f8eb77d373bec0944ee3bab77d0f8dbe1193b86f Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Thu, 11 Jun 2015 11:29:45 +0200
Subject: [PATCH] Issue 4445: Use \override music function in a few cases

---
 ly/music-functions-init.ly | 22 ++++++----------------
 1 file 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)
-- 
2.39.2