From: hanwen <hanwen>
Date: Fri, 30 Jul 2004 14:25:08 +0000 (+0000)
Subject: use symlinks to save space.
X-Git-Tag: release/2.3.12~89
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cdb49f6a2bbb3aacc2356e7ba65c2b1f494229d3;p=lilypond.git

use symlinks to save space.
---

diff --git a/ChangeLog b/ChangeLog
index c77c8f1a7f..c6e5b9d8e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-07-30  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+	* Documentation/user/GNUmakefile: use symlinks to save space.
+
 	* VERSION: 2.3.9 released.
 
 	* scripts/convert-ly.py (conv): remove \lyrics from \lyricsto.
diff --git a/Documentation/user/GNUmakefile b/Documentation/user/GNUmakefile
index 06d5272685..e4a62e7667 100644
--- a/Documentation/user/GNUmakefile
+++ b/Documentation/user/GNUmakefile
@@ -96,8 +96,9 @@ $(outdir)/lilypond/lilypond.html: $(outdir)/lilypond.texi
 	$(MAKEINFO) -I$(outdir) --output=$(outdir)/lilypond --css-include=$(builddir)/Documentation/texinfo.css --html $<
 	$(MAKEINFO) -I$(outdir) --output=$@ --css-include=$(builddir)/Documentation/texinfo.css --html --no-split --no-headers $<
 	perl -i~ -pe 's!../lilypond-internals!lilypond-internals/!g' $(outdir)/lilypond.html
-	rm -f $(outdir)/lilypond/*.png $(outdir)/lilypond/*.ly 
-	-ln -f $(outdir)/*.png $(outdir)/*.ly $(outdir)/lilypond/
+	rm -f $(outdir)/lilypond/*.png $(outdir)/lilypond/*.ly
+# symbolic links to save space 
+	-ln -sf $(outdir)/*.png $(outdir)/*.ly $(outdir)/lilypond/
 
 $(outdir)/lilypond-internals/lilypond-internals.html: $(outdir)/lilypond-internals.texi
 	mkdir -p $(dir $@)
diff --git a/lily/parser.yy b/lily/parser.yy
index 5f8e017ad5..74e8bfa28f 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -583,7 +583,7 @@ identifier_init:
 	| DIGIT {
 		$$ = scm_int2num ($1);
 	}
-	;	;
+	;
 
 context_def_spec_block:
 	CONTEXT '{' context_def_spec_body '}'
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 22ee5dd1e3..3a2419d2ac 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -97,13 +97,8 @@
 
       (string-append
        (define-font plain fontname scaling)
-       (if (or (equal? input-encoding font-encoding)
-	       ;; guh
-	       (equal? font-encoding "fetaBraces")
-	       (equal? font-encoding "fetaNumber")
-	       (equal? font-encoding "fetaMusic")
-	       (equal? font-encoding "parmesanMusic"))
-	       ""
+       (if (not (equal? input-encoding font-encoding))
+	   ""
 	   (reencode-font plain input-encoding command)))))
 
   (define (font-load-encoding encoding)