From f68c93cabcfb21592cbae5a45db5f0027cfd3e8b Mon Sep 17 00:00:00 2001
From: shuhei <shuhei>
Date: Mon, 12 Mar 2001 11:33:32 +0000
Subject: [PATCH] (install-files, install-elisp-modules): Don't make
 destination directory when dry-run. (install-just-print-p):
 Add comment. Make format-string more verbose.

---
 install.el |    9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/install.el b/install.el
index 9417462..9db27cf 100644
--- a/install.el
+++ b/install.el
@@ -90,7 +90,8 @@ been installed."
 (defun install-files (files src dst &optional move overwrite dry-run)
   "Install FILES.
 See `install-file' for more information."
-  (or (file-exists-p dst)
+  (or dry-run
+      (file-exists-p dst)
       (make-directory dst t))
   (while files
     (install-file (car files) src dst move overwrite dry-run)
@@ -113,7 +114,8 @@ See `install-file' for information of the rest of arguments."
 (defun install-elisp-modules (modules src dst &optional dry-run)
   "Install MODULES.
 See `install-elisp-modules' for more information."
-  (or (file-exists-p dst)
+  (or dry-run
+      (file-exists-p dst)
       (make-directory dst t))
   (while modules
     (install-elisp-module (car modules) src dst dry-run)
@@ -221,8 +223,9 @@ See `install-elisp-modules' for more information."
 (defun install-just-print-p ()
   (let ((flag (getenv "MAKEFLAGS"))
 	(case-fold-search nil))
-    (princ (format "%s\n" flag))
+    (princ (format "MAKEFLAGS=%s\n" (or flag "")))
     (if flag
+	;; Check whether MAKEFLAGS contain "n" option or not.
 	(string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
 
 
-- 
1.7.10.4