From: Erlend Aasland <erlend.aasland@mac.com>
Date: Sun, 13 Jan 2008 13:39:42 +0000 (+0100)
Subject: Fix underline markup x extent
X-Git-Tag: release/2.11.38-1~94
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0726ed249c7dcbb0091091e0a7191d168f27f25c;p=lilypond.git

Fix underline markup x extent
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 624cc3bb01..0b9e7c9540 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -124,11 +124,12 @@ thickness and y offset."
 	      (ly:output-def-lookup layout 'line-thickness)
 	      (chain-assoc-get 'thickness props 1)))
 	 (markup (interpret-markup layout props arg))
-	 (x (cdr (ly:stencil-extent markup X)))
+	 (x1 (car (ly:stencil-extent markup X)))
+	 (x2 (cdr (ly:stencil-extent markup X)))
 	 (y (* thick -2))
 	 (line (ly:make-stencil
-		`(draw-line ,thick 0 ,y ,x ,y)
-		(cons (min x 0) (max x 0))
+		`(draw-line ,thick ,x1 ,y ,x2 ,y)
+		(cons (min x1 0) (max x2 0))
 		(cons thick thick))))
 	 (ly:stencil-add markup line)))