Doc-de: revival and update of extending manual

[lilypond.git] / scm / parser-clef.scm

diff --git a/scm/parser-clef.scm b/scm/parser-clef.scm
index 4f9a409c52eef0177eeafacb3b0840bf40f9c1d5..757a1876defd38f44c724c9b84ef8daf07c4d0d8 100644 (file)
--- a/scm/parser-clef.scm
+++ b/scm/parser-clef.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2004--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 2004--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -113,7 +113,7 @@
   (let ((e '())
        (c0 0)
        (oct 0)
-       (match (string-match "^(.*)([_^])([0-9]+)$" clef-name)))
+       (match (string-match "^(.*)([_^])([1-9][0-9]*)$" clef-name)))
     (if match
        (begin
          (set! clef-name (match:substring match 1))