From: Patrick McCarty <pnorcks@gmail.com>
Date: Thu, 8 Jul 2010 20:34:30 +0000 (-0700)
Subject: Fix #1177.
X-Git-Tag: release/2.13.28-1~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8070ef6b831ac4da4bd4881cded96b1af2ccadfc;p=lilypond.git

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 2f17701d46..757a1876de 100644
--- 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))