--- scripts/lilypond-book.py~	Thu Aug 30 16:06:11 2001
+++ scripts/lilypond-book.py	Thu Sep  6 22:32:28 2001
@@ -418,15 +418,15 @@
 re_dict = {
 	'latex': {'input': r'(?m)^[^%\n]*?(?P<match>\\mbinput{?([^}\t \n}]*))',
 		  'include': r'(?m)^[^%\n]*?(?P<match>\\mbinclude{(?P<filename>[^}]+)})',
-		  'option-sep' : ', *',
+		  'option-sep' : ',\s*',
 		  'header': r"\\documentclass\s*(\[.*?\])?",
 		  'geometry': r"^(?m)[^%\n]*?\\usepackage\s*(\[(?P<options>.*)\])?\s*{geometry}",
 		  'preamble-end': r'(?P<code>\\begin{document})',
 		  'verbatim': r"(?s)(?P<code>\\begin{verbatim}.*?\\end{verbatim})",
 		  'verb': r"(?P<code>\\verb(?P<del>.).*?(?P=del))",
-		  'lilypond-file': r'(?m)^[^%\n]*?(?P<match>\\lilypondfile(\[(?P<options>.*?)\])?\{(?P<filename>.+)})',
-		  'lilypond' : r'(?m)^[^%\n]*?(?P<match>\\lilypond(\[(?P<options>.*?)\])?{(?P<code>.*?)})',
-		  'lilypond-block': r"(?sm)^[^%\n]*?(?P<match>\\begin(\[(?P<options>.*?)\])?{lilypond}(?P<code>.*?)\\end{lilypond})",
+		  'lilypond-file': r'(?m)^[^%\n]*?(?P<match>\\lilypondfile\s*(\[(?P<options>.*?)\])?\s*\{(?P<filename>.+)})',
+		  'lilypond' : r'(?m)^[^%\n]*?(?P<match>\\lilypond\s*(\[(?P<options>.*?)\])?\s*{(?P<code>.*?)})',
+		  'lilypond-block': r"(?sm)^[^%\n]*?(?P<match>\\begin\s*(\[(?P<options>.*?)\])?\s*{lilypond}(?P<code>.*?)\\end{lilypond})",
 		  'def-post-re': r"\\def\\postLilypondExample",
 		  'def-pre-re': r"\\def\\preLilypondExample",		  
 		  'usepackage-graphics': r"\usepackage{graphics}",
@@ -449,7 +449,7 @@
 		 'lilypond-file': '(?m)^(address@hidden)(?P<match>@lilypondfile(\[(?P<options>.*?)\])?{(?P<filename>[^}]+)})',
 		 'lilypond' : '(?m)^(address@hidden)(?P<match>@lilypond(\[(?P<options>.*?)\])?{(?P<code>.*?)})',
 		 'lilypond-block': r"""(?m)^(address@hidden)(?P<match>(?s)(?P<match>@lilypond(\[(?P<options>.*?)\])?\s(?P<code>.*?)@end lilypond\s))""",
-		  'option-sep' : ', *',
+		  'option-sep' : ',\s*',
 		  'intertext': r',?\s*intertext=\".*?\"',
 		  'multiline-comment': r"(?sm)^\s*(address@hidden)(?P<code>@address@hidden ignore)\s",
 		  'singleline-comment': r"(?m)^.*?(?P<match>(?P<code>@c.*$\n+))",
--- scm/interface-description.scm~	Mon Aug 20 23:53:21 2001
+++ scm/interface-description.scm	Thu Sep  6 22:35:59 2001
@@ -251,6 +251,7 @@
    tuplet-bracket-visibility 
    tuplet-number-visibility 
    thick 
+   direction
    ))