From 1f235c04fceb642bb0e8e42346c4a91412efbb19 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sat, 27 Aug 2005 22:59:54 +0000 Subject: [PATCH] Fixed. --- lisp/riece-addon.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) 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)) -- 2.25.1