From d16fc281ec7bc284f8a903c053920b94e8928516 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 2 Feb 2004 17:11:46 +0000
Subject: [PATCH] release commit

---
 ChangeLog                             |  2 +
 input/regression/new-markup-scheme.ly | 64 +++++++++++++++++++++++++++
 2 files changed, 66 insertions(+)
 create mode 100644 input/regression/new-markup-scheme.ly

diff --git a/ChangeLog b/ChangeLog
index 07d5c71d92..ac27236f5c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-02-02  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+	* VERSION: release 2.1.17
+	
 	* Documentation/user/refman.itely (Automatic part combining):
 	revise documentation of the part-combiner.
 
diff --git a/input/regression/new-markup-scheme.ly b/input/regression/new-markup-scheme.ly
new file mode 100644
index 0000000000..81eb14fa20
--- /dev/null
+++ b/input/regression/new-markup-scheme.ly
@@ -0,0 +1,64 @@
+
+\header {
+
+    texidoc = "There is a Scheme macro @code{markup} to produce markup
+    texts using a similar syntax as @code{\\markup}."
+
+    }
+\version "2.1.16"
+\score {
+    \notes {
+        \fatText
+        f'1-\markup {
+            foo
+            \raise #0.2 \hbracket \bold bar
+            \override #'(baseline-skip . 4)
+
+            \bracket \column < baz bazr bla >
+            \hspace #2.0
+            \override #'(font-family . music) {
+                \lookup #"noteheads-0"
+                \char #53
+            }
+            \musicglyph #"accidentals--1"
+            \combine "X" "+"   
+            \combine "o" "/"
+            \box \column < { "string 1" } { "string 2" } >
+            "$\\emptyset$"
+            \italic Norsk
+            \super "2"
+            \dynamic sfzp
+            \huge { "A" \smaller "A" \smaller \smaller "A"
+                    \smaller \smaller \smaller "A" }
+            \sub "alike"
+        }	
+        \break
+        f'1-#(markup* 
+              "foo"
+              #:raise 0.2 #:hbracket #:bold "bar"
+              #:override '(baseline-skip . 4) 
+              #:bracket #:column ( "baz" "bazr" "bla" )
+              #:hspace 2.0
+              #:override '(font-family . music) #:line (#:lookup "noteheads-0" 
+                                                        #:char 53)
+              #:musicglyph "accidentals--1"
+              #:combine "X" "+"   
+              #:combine "o" "/"
+              #:box #:column ("string 1" "string 2")
+              "$\\emptyset$"
+              #:italic "Norsk"
+              #:super "2"
+              #:dynamic "sfzp"
+              #:huge #:line ("A" #:smaller "A" #:smaller #:smaller "A" 
+                             #:smaller #:smaller #:smaller "A")
+              #:sub "alike")
+    }
+    \paper { 
+        raggedright = ##t
+        indent = #0
+        \translator {
+            \StaffContext
+            \remove Time_signature_engraver 
+        }
+    }
+}
-- 
2.39.5