- (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)))))