From: David Kastrup <dak@gnu.org>
Date: Tue, 24 Jan 2017 20:39:15 +0000 (+0100)
Subject: Issue 5043/2: Use ly:stencil-outline instead of transparent-stencil
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=bbaca2ed893d929170bca4db03ec90ba26a094e0;p=lilypond.git

Issue 5043/2: Use ly:stencil-outline instead of transparent-stencil
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 07f1538aa2..9543db464b 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -2333,10 +2333,7 @@ Add padding @var{amount} around @var{arg} in the X@tie{}direction.
   }
 }
 @end lilypond"
-  (let* ((m (interpret-markup layout props arg))
-         (x (ly:stencil-extent m X))
-         (y (ly:stencil-extent m Y)))
-    (ly:make-stencil (list 'transparent-stencil (ly:stencil-expr m)) x y)))
+  (ly:stencil-outline empty-stencil (interpret-markup layout props arg)))
 
 (define-markup-command (pad-to-box layout props x-ext y-ext arg)
   (number-pair? number-pair? markup?)
diff --git a/scm/stencil.scm b/scm/stencil.scm
index f4b5eb8bad..0fa79d4161 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -238,10 +238,7 @@ the more angular the shape of the parenthesis."
 
 (define-public (make-transparent-box-stencil xext yext)
   "Make a transparent box."
-  (ly:make-stencil
-   (list 'transparent-stencil
-         (ly:stencil-expr (make-filled-box-stencil xext yext)))
-   xext yext))
+  (ly:stencil-outline empty-stencil (make-filled-box-stencil xext yext)))
 
 (define-public (make-filled-box-stencil xext yext)
   "Make a filled box."