From 53b41905fff42c30d278442ed11b37b2ca21170a Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 26 Aug 2005 06:34:06 +0000 Subject: [PATCH] Update riece-addons when insinuate/uninstall. --- lisp/riece-addon.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el index 168b858..a46fcb3 100644 --- a/lisp/riece-addon.el +++ b/lisp/riece-addon.el @@ -198,10 +198,8 @@ (defun riece-insinuate-addon (addon &optional verbose) (unless (assq addon riece-addon-dependencies) - (setq riece-addon-dependencies (riece-resolve-addons - (cons addon - (mapcar #'car - riece-addon-dependencies))))) + (setq riece-addons (cons addon riece-addons) + riece-addon-dependencies (riece-resolve-addons riece-addons))) (if (get addon 'riece-addon-insinuated) (if verbose (message "Add-on %S is already insinuated" addon)) @@ -230,7 +228,8 @@ #'ignore)) (setq riece-addon-dependencies (delq entry riece-addon-dependencies)) - (put addon 'riece-addon-insinuated nil))) + (put addon 'riece-addon-insinuated nil) + (setq riece-addons (delq addon riece-addons)))) (if verbose (message "Add-on %S is uninstalled" addon))))) -- 1.7.10.4