From: ueno <ueno>
Date: Sat, 27 Aug 2005 13:29:25 +0000 (+0000)
Subject: Query user to insinuate dependent add-ons.
X-Git-Tag: channel-coding-branchpoint~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0e23e3d4db65e6287a20a600b207774ed987b6c8;p=elisp%2Friece.git

Query user to insinuate dependent add-ons.
---

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 4c474c7..90d78de 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -227,13 +227,19 @@
 	  riece-addon-dependencies
 	  (riece-resolve-addons
 	   (cons addon (mapcar #'car riece-addon-dependencies)))))
-  (let ((pointer riece-addon-dependencies))
+  (let ((pointer riece-addon-dependencies)
+	addons)
     (while pointer
       (unless (get (car (car pointer)) 'riece-addon-insinuated)
-	(riece-insinuate-addon-1 (car (car pointer)) verbose))
+	(setq addons (cons (car (car pointer)) addons)))
       (if (eq (car (car pointer)) addon)
 	  (setq pointer nil)
-	(setq pointer (cdr pointer))))))
+	(setq pointer (cdr pointer))))
+    (if (y-or-n-p (format "%s will be insinuated.  Continue?"
+			  (mapconcat #'symbol-name addons ", ")))
+	(while addons
+	  (riece-insinuate-addon-1 (car addons))
+	  (setq addons (cdr addons))))))
 
 (defun riece-uninstall-addon (addon &optional verbose)
   (if (not (get addon 'riece-addon-insinuated))