projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0461001
)
Query user to insinuate dependent add-ons.
author
Daiki Ueno
<ueno@unixuser.org>
Sat, 27 Aug 2005 13:29:25 +0000
(13:29 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Sat, 27 Aug 2005 13:29:25 +0000
(13:29 +0000)
lisp/riece-addon.el
patch
|
blob
|
history
diff --git
a/lisp/riece-addon.el
b/lisp/riece-addon.el
index
4c474c7
..
90d78de
100644
(file)
--- 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)))))
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)
(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)
(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))
(defun riece-uninstall-addon (addon &optional verbose)
(if (not (get addon 'riece-addon-insinuated))