From 8e257534eb0096662efbadba693796ea59c5e865 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 22 Jan 2006 16:51:30 +0000
Subject: [PATCH] * stepmake/bin/install.py (dest): Only chmod/chown just
 created directories

* input/test/font-table.ly: new file. Generate font table within lily.
---
 ChangeLog                |  2 ++
 input/test/font-table.ly | 20 ++++++++++----------
 stepmake/bin/install.py  |  6 +++++-
 3 files changed, 17 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 377742ae4e..69b602e9ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-01-22  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* stepmake/bin/install.py (dest): Only chmod/chown just created directories
+
 	* Documentation/user/notation-appendices.itely (The Feta font):
 	use it.
 
diff --git a/input/test/font-table.ly b/input/test/font-table.ly
index fa1a5f6f8f..a21d179141 100644
--- a/input/test/font-table.ly
+++ b/input/test/font-table.ly
@@ -28,18 +28,18 @@
    0
    (1+ (min-length (cdr lst) (1- n)) )))
 
-#(define (doc-chars names)
+#(define (doc-chars names acc)
   (let*
    ((n (min-length names 2))
     (head (take names n))
     (tail (drop names n))
     )
 
-   (cons
-    (make-line-markup (map doc-char head))
-    (if (null? tail)
-     '()
-     (doc-chars tail)))))
+   (if (null? head)
+    acc
+    (doc-chars  tail
+     (cons (make-line-markup (map doc-char head)) acc)))
+     ))
 
 #(define (group-lines lines)
   (let*
@@ -56,11 +56,11 @@
 			
 #(let*
   ((lines (doc-chars
-	   (ly:font-glyph-list (format  "~a/share/lilypond/~a/fonts/otf/emmentaler-20.otf"
+	   (ly:font-glyph-list (format  "~a/fonts/otf/emmentaler-20.otf"
 				(getenv "LILYPONDPREFIX")
-				(lilypond-version)
-			      ))))
-   (pages (group-lines lines)))
+			      ))
+	 '()))
+   (pages (group-lines (reverse lines))))
 
   (for-each 
    (lambda (x)
diff --git a/stepmake/bin/install.py b/stepmake/bin/install.py
index 2a29e353c0..50cb61cd3e 100644
--- a/stepmake/bin/install.py
+++ b/stepmake/bin/install.py
@@ -65,7 +65,10 @@ if not create_dir:
 	dest = args.pop()
 
 for f in args:
-	if create_dir and not os.path.isdir (f):
+	if create_dir:
+		if os.path.isdir (f):
+			continue
+		
 		os.makedirs (f, mode=mode)
 		chown_me.append (f)
 	else:
@@ -75,6 +78,7 @@ for f in args:
 			shutil.copy2 (f, dest)
 		else:
 			shutil.move (f, dest)
+
 		if os.path.isdir (dest):
 			chown_me.append (os.path.join (dest, os.path.basename (f)))
 		else:
-- 
2.39.2