From 8bc84a8678a75bee8a3f47ee1c998449d244fefb Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sat, 27 Aug 2005 13:29:25 +0000 Subject: [PATCH] Query user to insinuate dependent add-ons. --- lisp/riece-addon.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) 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)) -- 2.25.1