* riece-addon.el (riece-resolve-addon-dependencies): Rename from

riece-resolve-addon.
(riece-resolve-addon): Append add-ons under riece-addon-directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fa18dc7..92dd125 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-02-03  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-addon.el (riece-resolve-addon-dependencies): Rename from
+       riece-resolve-addon.
+       (riece-resolve-addon): Append add-ons under riece-addon-directory.
+
 2005-02-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * riece-message.el (riece-display-message): When filter-function

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 5861006..f389349 100644 (file)
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -144,7 +144,7 @@
       (setq addons (cdr addons)))
     dependencies))
 
-(defun riece-resolve-addons (addons)
+(defun riece-resolve-addon-dependencies (addons)
   (let ((pointer addons)
        dependencies queue)
     ;; Uniquify, first.
@@ -179,6 +179,14 @@
        (error "Circular add-on dependency found"))
     (nreverse addons)))
 
+(defun riece-resolve-addon (addons)
+  (riece-resolve-addon-dependencies
+   (append addons
+          (mapcar
+           (lambda (name)
+             (intern (file-name-sans-extension name)))
+           (directory-files riece-addon-directory nil "\\`[^.]" t t)))))
+
 (defun riece-insinuate-addon (addon &optional verbose)
   (require addon)              ;implicit dependency
   (funcall (intern (concat (symbol-name addon) "-insinuate")))