From: minakaji <minakaji>
Date: Sat, 23 Jun 2001 05:03:56 +0000 (+0000)
Subject: * install.el (install-files): Do not make DEST directory when
X-Git-Tag: apel-10_3-1~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4ba37bbccb829d2a1c6e58a6955e81a7ee6bd725;p=elisp%2Fapel.git

* install.el (install-files): Do not make DEST directory when
JUST-PRINT is non-nil.
---

diff --git a/ChangeLog b/ChangeLog
index 026f7bb..320f46e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-23  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
+
+	* install.el (install-files): Do not make DEST directory when
+	JUST-PRINT is non-nil.
+
 2001-06-20  Akihiro MOTOKI <amotoki@dd.iij4u.or.jp>
 
 	* install.el (install-elisp-modules): Do not make DEST directory
diff --git a/install.el b/install.el
index 775c259..a399d7d 100644
--- a/install.el
+++ b/install.el
@@ -1,6 +1,6 @@
 ;;; install.el --- Emacs Lisp package install utility
 
-;; Copyright (C) 1996,1997,1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1996,1997,1998,1999,2001 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1996/08/18
@@ -74,7 +74,8 @@
 	    (princ (format "%s -> %s\n" file dest)))))))
 
 (defun install-files (files src dest &optional move overwrite just-print)
-  (or (file-exists-p dest)
+  (or just-print
+      (file-exists-p dest)
       (make-directory dest t))
   (mapcar
    (function