From 2f3e03fbbb18cbf15697c6bfacdc2122b6a8d1b4 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 26 Feb 1999 06:11:55 +0000
Subject: [PATCH] (install-just-print-p): New function. (install-apel): Use
 `install-just-print-p'. (install-apel-package): Likewise.

---
 APEL-MK |   23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/APEL-MK b/APEL-MK
index bc20efb..7ac0ec0 100644
--- a/APEL-MK
+++ b/APEL-MK
@@ -4,6 +4,14 @@
 
 ;;; Code:
 
+(defun install-just-print-p ()
+  (let ((flag (getenv "MAKEFLAGS"))
+	case-fold-search)
+    (princ (format "%s\n" flag))
+    (if flag
+	(string-match "^[^ =]*n" flag)
+      )))
+
 (defun config-apel ()
   (let (prefix lisp-dir version-specific-lisp-dir)
     (and (setq prefix (car command-line-args-left))
@@ -41,12 +49,7 @@
 
 (defun install-apel ()
   (compile-apel)
-  (let ((just-print (getenv "MAKEFLAGS"))
-	case-fold-search)
-    (princ (format "%s\n" just-print))
-    (if just-print
-	(setq just-print (string-match "^[^ =]*n" just-print))
-      )
+  (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)
     ))
@@ -68,13 +71,7 @@
   (config-apel-package)
   (load "EMU-ELS")
   
-  (let ((just-print (getenv "MAKEFLAGS"))
-	case-fold-search)
-    (princ (format "%s\n" just-print))
-    (if just-print
-	(setq just-print (string-match "^[^ =]*n" just-print))
-      )
-    
+  (let ((just-print (install-just-print-p)))
     (compile-elisp-modules emu-modules	".")
     (compile-elisp-modules apel-modules	".")
     
-- 
1.7.10.4