From 2c01d3c570555b08cc9734cfdcbcecb1044ba662 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 27 Aug 2005 13:38:01 +0000 Subject: [PATCH] Fixed. --- lisp/riece-addon.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el index 90d78de..163e1e8 100644 --- a/lisp/riece-addon.el +++ b/lisp/riece-addon.el @@ -235,10 +235,12 @@ (if (eq (car (car pointer)) addon) (setq pointer nil) (setq pointer (cdr pointer)))) - (if (y-or-n-p (format "%s will be insinuated. Continue?" - (mapconcat #'symbol-name addons ", "))) + (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)) + (riece-insinuate-addon-1 (car addons) verbose) (setq addons (cdr addons)))))) (defun riece-uninstall-addon (addon &optional verbose) @@ -464,7 +466,7 @@ Useful keys: (lambda (pointer) (not (get (car pointer) 'riece-addon-insinuated))) t))))) - (riece-insinuate-addon addon t) + (riece-insinuate-addon addon 'ask) (when (eq major-mode 'riece-addon-list-mode) (riece-command-list-addons) (riece-addon-list-set-point addon))) -- 1.7.10.4