From: Erlend Aasland <erlend.aasland@mac.com>
Date: Fri, 11 Jan 2008 21:21:29 +0000 (+0100)
Subject: Code style...
X-Git-Tag: release/2.11.38-1~102^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5bb71e5d06c135518bf765d85d283e79687bdc40;p=lilypond.git

Code style...
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index e04b79963c..624cc3bb01 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -120,18 +120,17 @@ the PDF backend."
 (define-builtin-markup-command (underline layout props arg) (markup?)
   "Underline @var{arg}.  Looks at @code{thickness} to determine line
 thickness and y offset."
-  (let* ((th (*
+  (let* ((thick (*
 	      (ly:output-def-lookup layout 'line-thickness)
 	      (chain-assoc-get 'thickness props 1)))
-	 (m (interpret-markup layout props arg))
-	 (x (cdr (ly:stencil-extent m X)))
-	 (y (* th -2))
+	 (markup (interpret-markup layout props arg))
+	 (x (cdr (ly:stencil-extent markup X)))
+	 (y (* thick -2))
 	 (line (ly:make-stencil
-		`(draw-line ,th 0 ,y ,x ,y)
+		`(draw-line ,thick 0 ,y ,x ,y)
 		(cons (min x 0) (max x 0))
-		(cons th th)))
-	 (s (ly:stencil-add m line)))
-    s))
+		(cons thick thick))))
+	 (ly:stencil-add markup line)))
 
 (define-builtin-markup-command (box layout props arg) (markup?)
   "Draw a box round @var{arg}.  Looks at @code{thickness},