* 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 (file)
--- 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.
 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 (file)
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -181,11 +181,13 @@
 
 (defun riece-resolve-addons (addons)
   (riece-resolve-addon-dependencies
 
 (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
 
 (defun riece-insinuate-addon (addon &optional verbose)
   (require addon)              ;implicit dependency