From a5ff1c9ccdb83bd120edf2035532f47f578dc331 Mon Sep 17 00:00:00 2001
From: Patrick McCarty <pnorcks@gmail.com>
Date: Mon, 13 Jul 2009 21:27:59 -0700
Subject: [PATCH] Add a new stencil expression: embedded-svg

* This can only be used with the SVG backend.
---
 scm/define-stencil-commands.scm | 1 +
 scm/output-svg.scm              | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index 2e816ccaa2..b2b2f92d68 100644
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -19,6 +19,7 @@
        draw-line
        ellipse
        embedded-ps
+       embedded-svg
        glyph-string
        named-glyph
        oval
diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index c08fc1a5d5..bc27ed6d7a 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -378,7 +378,8 @@
 (define (utf-8-string pango-font-description string)
   (dispatch `(fontify ,pango-font-description ,(entity 'tspan string))))
 
-
+(define (embedded-svg string)
+  string)
 
 (define (setcolor r g b)
   (format "<g color=\"rgb(~a%,~a%,~a%)\">\n"
-- 
2.39.2