From: ueno Date: Thu, 25 Aug 2005 08:51:06 +0000 (+0000) Subject: Fixed. X-Git-Tag: channel-coding-branchpoint~76 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=16f76a62db6f3e853ff311cef216766952c6b252;p=elisp%2Friece.git Fixed. --- diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el index c1280ef..2f35d5b 100644 --- a/lisp/riece-addon.el +++ b/lisp/riece-addon.el @@ -190,7 +190,7 @@ (setq pointer (cdr pointer))) (delq nil addons)) ;; Build & resolve dependencies. - (riece-resolve-addon-dependencies + (riece-sort-addon-dependencies (riece-load-and-build-addon-dependencies addons))) (defun riece-insinuate-addon (addon &optional verbose) diff --git a/lisp/riece.el b/lisp/riece.el index a9024dc..460c22a 100644 --- a/lisp/riece.el +++ b/lisp/riece.el @@ -325,8 +325,8 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect." (setq channel-list (cdr channel-list)))) (let ((pointer riece-addon-dependencies)) (while pointer - (unless (get (car pointer) 'riece-addon-default-disabled) - (riece-enable-addon (car pointer) riece-debug)) + (unless (get (car (car pointer)) 'riece-addon-default-disabled) + (riece-enable-addon (car (car pointer)) riece-debug)) (setq pointer (cdr pointer)))) (run-hooks 'riece-startup-hook) (message "%s" (substitute-command-keys