X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=inst-tm;h=c0ae129cea1179b0953328660f56885b3ee073f6;hb=d26bc385edbd0d6d6abdcdaf7fb011296ff7eba8;hp=6387e409f9909d0aaf076a9954da22bb8a87b3d4;hpb=9710d631bef5981581cc482f481c8dd87cd80ec2;p=elisp%2Ftm.git

diff --git a/inst-tm b/inst-tm
index 6387e40..c0ae129 100644
--- a/inst-tm
+++ b/inst-tm
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: inst-tm,v 7.7 1996/06/27 15:49:37 morioka Exp $
+;;; $Id: inst-tm,v 7.8 1996/07/22 18:29:22 morioka Exp $
 ;;;
 
 (load-file "TM-CFG")
@@ -119,6 +119,9 @@
     ))
 
 (defun install-el-files (src dest &rest files)
+  (or (file-exists-p dest)
+      (make-directory dest t)
+      )
   (mapcar (function (lambda (file)
 		      (install-el-file src dest file)
 		      ))
@@ -149,9 +152,6 @@
 	  files))
 
 (defun install-el-and-elc-files (src dest el-files elc-files)
-  (if (not (file-exists-p dest))
-      (make-directory dest t)
-    )
   (apply (function install-el-files)  src dest el-files)
   (apply (function install-elc-files) src dest elc-files)
   )