From: ueno <ueno>
Date: Sat, 27 Aug 2005 22:59:54 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: channel-coding-branchpoint~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b3b4c7eadac62a1a395edd00e87adc4cbdfc5af0;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 163e1e8..3cd4593 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -235,13 +235,15 @@
       (if (eq (car (car pointer)) addon)
 	  (setq pointer nil)
 	(setq pointer (cdr pointer))))
-    (if (if (eq verbose 'ask)
-	    (y-or-n-p (format "%s will be insinuated.  Continue?"
-			      (mapconcat #'symbol-name addons ", ")))
-	  verbose)
-	(while addons
-	  (riece-insinuate-addon-1 (car addons) verbose)
-	  (setq addons (cdr addons))))))
+    (setq addons (nreverse addons))
+    (if (and (> (length addon) 1)
+	     (eq verbose 'ask)
+	     (not (y-or-n-p (format "%s will be insinuated.  Continue?"
+				    (mapconcat #'symbol-name addons ", ")))))
+	(error "Insinuate operation was cancelled"))
+    (while addons
+      (riece-insinuate-addon-1 (car addons) verbose)
+      (setq addons (cdr addons)))))
 
 (defun riece-uninstall-addon (addon &optional verbose)
   (if (not (get addon 'riece-addon-insinuated))