From 3057a91d1144274b2ee0a5e199f4ce619ee32d6f Mon Sep 17 00:00:00 2001
From: shuhei <shuhei>
Date: Sun, 12 Dec 1999 03:39:11 +0000
Subject: [PATCH] Modified comments.

---
 APEL-MK   |   41 ++++++++++++++++++++++++-----------------
 ChangeLog |    6 ++++--
 2 files changed, 28 insertions(+), 19 deletions(-)

diff --git a/APEL-MK b/APEL-MK
index 1a1b48a..58e5ddb 100644
--- a/APEL-MK
+++ b/APEL-MK
@@ -53,7 +53,7 @@
 
 (defun install-just-print-p ()
   (let ((flag (getenv "MAKEFLAGS"))
-	case-fold-search)
+	(case-fold-search nil))
     (princ (format "%s\n" flag))
     (if flag
 	(string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
@@ -96,21 +96,27 @@
   ;; Override PREFIX, LISPDIR, and VERSION_SPECIFIC_LISPDIR with
   ;; command-line options.
   (let (prefix lisp-dir version-specific-lisp-dir)
-    (and (setq prefix (prog1
-			  ;; Avoid using `pop'.
-			  ;; (pop command-line-args-left)
-			  (car command-line-args-left)
-			(setq command-line-args-left
-			      (cdr command-line-args-left))))
+    (and (setq prefix
+	       ;; Avoid using `pop'.
+	       ;; (pop command-line-args-left)
+	       (prog1
+		   (car command-line-args-left)
+		 (setq command-line-args-left
+		       (cdr command-line-args-left))))
 	 (or (string-equal "NONE" prefix)
 	     (setq PREFIX prefix)))
-    (and (setq lisp-dir (prog1
-			    (car command-line-args-left)
-			  (setq command-line-args-left
-				(cdr command-line-args-left))))
+    (and (setq lisp-dir
+	       ;; Avoid using `pop'.
+	       ;; (pop command-line-args-left)
+	       (prog1
+		   (car command-line-args-left)
+		 (setq command-line-args-left
+		       (cdr command-line-args-left))))
 	 (or (string-equal "NONE" lisp-dir)
 	     (setq LISPDIR lisp-dir)))
     (and (setq version-specific-lisp-dir
+	       ;; Avoid using `pop'.
+	       ;; (pop command-line-args-left)
 	       (prog1
 		   (car command-line-args-left)
 		 (setq command-line-args-left
@@ -124,7 +130,6 @@
   (require 'path-util)
   (require 'install)
 
-  ;; We use `module-installed-p' in "EMU-ELS".
   ;; Import `apel-modules'.
   (load-file "APEL-ELS")
   ;; Import `emu-modules' and `emu-modules-to-compile'.
@@ -164,10 +169,13 @@
   (load-file "APEL-CFG")
   ;; Override PACKAGEDIR with command-line option.
   (let (package-dir)
-    (and (setq package-dir (prog1
-			       (car command-line-args-left)
-			     (setq command-line-args-left
-				   (cdr command-line-args-left))))
+    (and (setq package-dir
+	       ;; Avoid using `pop'.
+	       ;; (pop command-line-args-left)
+	       (prog1
+		   (car command-line-args-left)
+		 (setq command-line-args-left
+		       (cdr command-line-args-left))))
 	 (or (string= "NONE" package-dir)
 	     (setq PACKAGEDIR package-dir))))
   ;; Load some APEL modules from this directory.
@@ -177,7 +185,6 @@
   (require 'path-util)
   (require 'install)
 
-  ;; We use `module-installed-p' in "EMU-ELS".
   ;; Import `apel-modules'.
   (load-file "APEL-ELS")
   ;; Import `emu-modules' and `emu-modules-to-compile'.
diff --git a/ChangeLog b/ChangeLog
index 258df58..16fbf71 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,11 @@
 1999-12-12  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
+	* APEL-MK: Modified comments.
+
 	* poe.el: Modified comments.
 
-	* pym.el (defalias-maybe): Don't update `current-load-list'.
-	Modified comments.
+	* pym.el: Modified comments.
+	(defalias-maybe): Don't update `current-load-list'.
 
 1999-12-06  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
-- 
1.7.10.4