Fix #1177.

Transposing a clef by interval "0" leads to incorrect output, and it
does not make logical sense.

This commit prevents the transposition from being "0" and fixes the
output.

diff --git a/scm/parser-clef.scm b/scm/parser-clef.scm
index 2f17701d4672f6d492885368207f3bf8fd716cd2..757a1876defd38f44c724c9b84ef8daf07c4d0d8 100644 (file)
--- a/scm/parser-clef.scm
+++ b/scm/parser-clef.scm
@@ -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))