From 2c677bd979eca133e0bfa5065d4f8ff8a7b72a62 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 13 Dec 2006 02:08:11 +0000 Subject: [PATCH] (config-apel-package): Avoid an error concerning PACKAGEDIR with old XEmacs that doesn't use the package system. --- APEL-MK | 3 ++- ChangeLog | 5 +++++ 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * 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 * install.el (install-update-package-files): Use -- 1.7.10.4