Mercurial > hg > xemacs-beta
diff lisp/package-get.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 |
line wrap: on
line diff
--- a/lisp/package-get.el Mon Mar 24 15:01:50 2003 +0000 +++ b/lisp/package-get.el Mon Mar 24 16:30:56 2003 +0000 @@ -167,6 +167,12 @@ :type 'directory :group 'package-get) +;;;###autoload +(defcustom package-get-install-to-user-init-directory nil + "*If non-nil install packages under `user-init-directory'." + :type 'boolean + :group 'package-get) + (define-widget 'host-name 'string "A Host name." :tag "Host") @@ -889,10 +895,7 @@ (if (null base-filename) (error "No filename associated with package %s, version %s" package version)) - (setq install-dir - (package-admin-get-install-dir - package install-dir - (equal (package-get-info package 'category) "mule"))) + (setq install-dir (package-admin-get-install-dir package install-dir)) ;; If they asked for the latest using version=nil, don't get an older ;; version than we already have.