From: yamaoka <yamaoka>
Date: Wed, 13 Dec 2006 02:08:11 +0000 (+0000)
Subject: (config-apel-package): Avoid an error concerning PACKAGEDIR with old XEmacs
X-Git-Tag: apel-10_7~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2c677bd979eca133e0bfa5065d4f8ff8a7b72a62;p=elisp%2Fapel.git

(config-apel-package): Avoid an error concerning PACKAGEDIR with old XEmacs
 that doesn't use the package system.
---

diff --git a/APEL-MK b/APEL-MK
index 017362b..7641808 100644
--- a/APEL-MK
+++ b/APEL-MK
@@ -174,7 +174,8 @@
 				  (listp configure-package-path))
 			     (delete "" configure-package-path))))
 		  dir)
-	      (while (not (file-exists-p (setq dir (car dirs))))
+	      (while (and (setq dir (car dirs))
+			  (not (file-exists-p dir)))
 		(setq dirs (cdr dirs)))
 	      dir)))
   (if PACKAGEDIR
diff --git a/ChangeLog b/ChangeLog
index ee14a5a..5553343 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* APEL-MK (config-apel-package): Avoid an error concerning
+	PACKAGEDIR with old XEmacs that doesn't use the package system.
+
 2006-12-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* install.el (install-update-package-files): Use