From: David Kastrup <dak@gnu.org>
Date: Sun, 24 Mar 2013 13:56:35 +0000 (+0100)
Subject: Issue 3271: Provide \absolute music function to complement \relative
X-Git-Tag: release/2.17.15-1~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3615ec4b93b0229650c9f6dccc91aa1a74cb3796;p=lilypond.git

Issue 3271: Provide \absolute music function to complement \relative

From its documentation string:

Make @var{music} absolute.  This does not actually change the
music itself but rather hides it from surrounding @code{\\relative}
commands.
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index ad9f7bdda2..183bf4db21 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -31,6 +31,14 @@
 
 %% TODO: using define-music-function in a .scm causes crash.
 
+absolute =
+#(define-music-function (parser location music)
+   (ly:music?)
+   (_i "Make @var{music} absolute.  This does not actually change the
+music itself but rather hides it from surrounding @code{\\relative}
+commands.")
+   (make-music 'RelativeOctaveMusic 'element music))
+
 acciaccatura =
 #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic
    (_i "Create an acciaccatura from the following music expression"))