From: ueno <ueno>
Date: Mon, 7 Feb 2005 03:51:07 +0000 (+0000)
Subject: * riece-addon.el (riece-resolve-addons): Check the existence of
X-Git-Tag: riece-1_0_7b~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=15e066bb76e25e84aefd14e9eace0ad23701782c;p=elisp%2Friece.git

* riece-addon.el (riece-resolve-addons): Check the existence of
riece-addon-directory.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a2a008..ed78350 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-07  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-addon.el (riece-resolve-addons): Check the existence of
+	riece-addon-directory.
+
 2005-02-06  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-filter.el (riece-filter): Modified regexp.
diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 3cfda07..7cf6bd4 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -181,11 +181,13 @@
 
 (defun riece-resolve-addons (addons)
   (riece-resolve-addon-dependencies
-   (append addons
-	   (mapcar
-	    (lambda (name)
-	      (intern (file-name-sans-extension name)))
-	    (directory-files riece-addon-directory nil "\\`[^.]" t)))))
+   (if (file-directory-p riece-addon-directory)
+       (append addons
+	       (mapcar
+		(lambda (name)
+		  (intern (file-name-sans-extension name)))
+		(directory-files riece-addon-directory nil "\\`[^.]" t)))
+     addons)))
 
 (defun riece-insinuate-addon (addon &optional verbose)
   (require addon)		;implicit dependency