From: ueno <ueno>
Date: Fri, 26 Aug 2005 06:34:06 +0000 (+0000)
Subject: Update riece-addons when insinuate/uninstall.
X-Git-Tag: channel-coding-branchpoint~62
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=53b41905fff42c30d278442ed11b37b2ca21170a;p=elisp%2Friece.git

Update riece-addons when insinuate/uninstall.
---

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)))))