(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 (file)
--- 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 (file)
--- 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