From 49a71cf1b71fe6fbb79608fc77d8e363ea747e65 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 20 Dec 2000 05:38:54 +0000
Subject: [PATCH] (install-just-print-p): Moved to install.el.
 (install-update-package-files): Moved to install.el.

---
 APEL-MK |   39 ---------------------------------------
 1 file changed, 39 deletions(-)

diff --git a/APEL-MK b/APEL-MK
index 58e5ddb..1fc43ed 100644
--- a/APEL-MK
+++ b/APEL-MK
@@ -49,45 +49,6 @@
 (defvar EMU_DIR nil)			; VERSION_SPECIFIC_LISPDIR/EMU_PREFIX
 
 
-;;; Utilities. (XXX: should be moved to install.el ?)
-
-(defun install-just-print-p ()
-  (let ((flag (getenv "MAKEFLAGS"))
-	(case-fold-search nil))
-    (princ (format "%s\n" flag))
-    (if flag
-	(string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
-
-(defun install-update-package-files (package dir &optional just-print)
-  (cond
-   (just-print
-    (princ (format "Updating autoloads in directory %s..\n\n" dir))
-
-    (princ (format "Processing %s\n" dir))
-    (princ "Generating custom-load.el...\n\n")
-
-    (princ (format "Compiling %s...\n"
-		   (expand-file-name "auto-autoloads.el" dir)))
-    (princ (format "Wrote %s\n"
-		   (expand-file-name "auto-autoloads.elc" dir)))
-
-    (princ (format "Compiling %s...\n"
-		   (expand-file-name "custom-load.el" dir)))
-    (princ (format "Wrote %s\n"
-		   (expand-file-name "custom-load.elc" dir))))
-   (t
-    (setq autoload-package-name package)
-
-    (let ((command-line-args-left (list dir)))
-      (batch-update-directory))
-
-    (let ((command-line-args-left (list dir)))
-      (Custom-make-dependencies))
-
-    (byte-compile-file (expand-file-name "auto-autoloads.el" dir))
-    (byte-compile-file (expand-file-name "custom-load.el" dir)))))
-
-
 ;;; Configure, Compile, and Install.
 
 (defun config-apel ()
-- 
1.7.10.4