Mercurial > hg > xemacs-beta
comparison lisp/package-ui.el @ 1378:69a674f5861f
[xemacs-hg @ 2003-03-24 16:30:55 by youngs]
2003-03-25 Steve Youngs <youngs@xemacs.org>
* package-admin.el: (package-admin-delete-binary-package): Only
delete the lisp directory if it exists.
(package-admin-find-top-directory): New.
(package-admin-get-install-dir): Use it.
* package-get.el (package-get-install-to-user-init-directory):
New. If non-nil install packages under `user-init-directory'.
(package-get): `package-admin-get-install-dir' only takes 2 args.
* package-ui.el (pui-install-selected-packages): The 2nd arg to
`package-admin-get-install-dir' is optional, no need to specify nil.
| author | youngs |
|---|---|
| date | Mon, 24 Mar 2003 16:30:56 +0000 |
| parents | d638fc15d68b |
| children | 44de306310b8 |
comparison
equal
deleted
inserted
replaced
| 1377:19738a2a5138 | 1378:69a674f5861f |
|---|---|
| 347 (kill-buffer tmpbuf)) | 347 (kill-buffer tmpbuf)) |
| 348 (when do-delete | 348 (when do-delete |
| 349 (message "Deleting selected packages ...") (sit-for 0) | 349 (message "Deleting selected packages ...") (sit-for 0) |
| 350 (mapcar (lambda (pkg) | 350 (mapcar (lambda (pkg) |
| 351 (package-admin-delete-binary-package | 351 (package-admin-delete-binary-package |
| 352 pkg (package-admin-get-install-dir pkg nil))) | 352 pkg (package-admin-get-install-dir pkg))) |
| 353 (nreverse pui-deleted-packages)) | 353 (nreverse pui-deleted-packages)) |
| 354 (message "Packages deleted")))) | 354 (message "Packages deleted")))) |
| 355 | 355 |
| 356 (let ((tmpbuf "*Packages-To-Install*") | 356 (let ((tmpbuf "*Packages-To-Install*") |
| 357 do-install) | 357 do-install) |