From 7f634eb14b0c02594ba0d9c9723074fdce2222c6 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 20 Dec 2000 05:49:08 +0000 Subject: [PATCH] (install-apel): Add new optional argument `just-print'. (what-where-apel): New implementation [use `install-apel' with `just-print' mode]. --- APEL-MK | 43 +++++++++++++++++++++++-------------------- 1 file changed, 23 insertions(+), 20 deletions(-) diff --git a/APEL-MK b/APEL-MK index 1fc43ed..394586e 100644 --- a/APEL-MK +++ b/APEL-MK @@ -118,11 +118,12 @@ (compile-elisp-modules emu-modules-to-compile ".") (compile-elisp-modules apel-modules ".")) -(defun install-apel () +(defun install-apel (&optional just-print) (config-apel) - (let ((just-print (install-just-print-p))) - (install-elisp-modules emu-modules "." EMU_DIR just-print) - (install-elisp-modules apel-modules "." APEL_DIR just-print))) + (or just-print + (setq just-print (install-just-print-p))) + (install-elisp-modules emu-modules "." EMU_DIR just-print) + (install-elisp-modules apel-modules "." APEL_DIR just-print)) ;; For XEmacs package system. (defun config-apel-package () @@ -185,21 +186,23 @@ (install-update-package-files "apel" dir just-print))) (defun what-where-apel () - (config-apel) - (princ (format " -The files that belong to the EMU modules: - %s - -> %s - -The files that belong to the APEL modules: - %s - -> %s - -Do `make elc', `make install', `make package', or `make install-package'. -" - (mapconcat (function symbol-name) emu-modules ", ") - EMU_DIR - (mapconcat (function symbol-name) apel-modules ", ") - APEL_DIR))) + (install-apel 'just-print) + ;; (config-apel) +;;; (princ (format " +;;; The files that belong to the EMU modules: +;;; %s +;;; -> %s + +;;; The files that belong to the APEL modules: +;;; %s +;;; -> %s + +;;; Do `make elc', `make install', `make package', or `make install-package'. +;;; " +;;; (mapconcat (function symbol-name) emu-modules ", ") +;;; EMU_DIR +;;; (mapconcat (function symbol-name) apel-modules ", ") +;;; APEL_DIR)) + ) ;;; APEL-MK ends here -- 1.7.10.4