* scm/define-markup-commands.scm (text): add \text markup command.

* ly/music-functions-init.ly: \pitchedTrill

* scm/define-markup-commands.scm (pad-markup): pad-markup command.

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 480fe7713da000ae9a04db691fe9b646ebe727b4..47c629d06f33502229fae4afa2c22841a69b75ca 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -2,6 +2,9 @@
 
 \version "2.6.0"
 
+%% need SRFI-1 filter 
+
+#(use-modules (srfi srfi-1))  
 
 applymusic = #(def-music-function (parser location func music) (procedure? ly:music?)
                (func music))

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index fe3e3ad5528d496931bdea91a4a61e75e6d784a9..98d2161c37b4dd9696c0c05f52d32e11bc0e9fb1 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -709,10 +709,6 @@ some punctuation. It doesn't have any letters.  "
   "Set @code{font-shape} to @code{caps}."
   (interpret-markup layout (prepend-alist-chain 'font-shape 'caps props) arg))
 
-;(def-markup-command (latin-i layout props arg) (markup?)
-;  "TEST latin1 encoding."
-;  (interpret-markup layout (prepend-alist-chain 'font-shape 'latin1 props) arg))
-
 (def-markup-command (dynamic layout props arg) (markup?)
   "Use the dynamic font.  This font only contains @b{s}, @b{f}, @b{m},
 @b{z}, @b{p}, and @b{r}.  When producing phrases, like ``pi@`{u} @b{f}'', the
@@ -722,8 +718,7 @@ recommend font for this is bold and italic"
    layout (prepend-alist-chain 'font-encoding 'fetaDynamic props) arg))
 
 (def-markup-command (text layout props arg) (markup?)
-  "Use a text font instead of music symbol or music alphabet "  
-  "font."
+  "Use a text font instead of music symbol or music alphabet font."  
 
   ;; ugh - latin1
   (interpret-markup layout (prepend-alist-chain 'font-encoding 'latin1 props)