Mercurial > hg > xemacs-beta
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 1377:19738a2a5138 | 1378:69a674f5861f |
|---|---|
| 163 | 163 |
| 164 (defcustom package-get-dir (temp-directory) | 164 (defcustom package-get-dir (temp-directory) |
| 165 "*Where to store temporary files for staging." | 165 "*Where to store temporary files for staging." |
| 166 :tag "Temporary directory" | 166 :tag "Temporary directory" |
| 167 :type 'directory | 167 :type 'directory |
| 168 :group 'package-get) | |
| 169 | |
| 170 ;;;###autoload | |
| 171 (defcustom package-get-install-to-user-init-directory nil | |
| 172 "*If non-nil install packages under `user-init-directory'." | |
| 173 :type 'boolean | |
| 168 :group 'package-get) | 174 :group 'package-get) |
| 169 | 175 |
| 170 (define-widget 'host-name 'string | 176 (define-widget 'host-name 'string |
| 171 "A Host name." | 177 "A Host name." |
| 172 :tag "Host") | 178 :tag "Host") |
| 887 package version) | 893 package version) |
| 888 (error "No download site or local package location specified."))) | 894 (error "No download site or local package location specified."))) |
| 889 (if (null base-filename) | 895 (if (null base-filename) |
| 890 (error "No filename associated with package %s, version %s" | 896 (error "No filename associated with package %s, version %s" |
| 891 package version)) | 897 package version)) |
| 892 (setq install-dir | 898 (setq install-dir (package-admin-get-install-dir package install-dir)) |
| 893 (package-admin-get-install-dir | |
| 894 package install-dir | |
| 895 (equal (package-get-info package 'category) "mule"))) | |
| 896 | 899 |
| 897 ;; If they asked for the latest using version=nil, don't get an older | 900 ;; If they asked for the latest using version=nil, don't get an older |
| 898 ;; version than we already have. | 901 ;; version than we already have. |
| 899 (if installed | 902 (if installed |
| 900 (if (> (if (stringp installed) | 903 (if (> (if (stringp installed) |