- (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))))))
+ (setq addons (nreverse addons))
+ (if (and (> (length addons) 1)
+ (eq verbose 'ask)
+ (not (y-or-n-p (format (riece-mcat
+ "%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)))))