Mercurial > hg > xemacs-beta
changeset 624:59c2a61efa7d
[xemacs-hg @ 2001-06-30 23:07:06 by youngs]
Patches from Robert Pluim <rpluim@bigfoot.com> - small changes to package code
| author | youngs |
|---|---|
| date | Sat, 30 Jun 2001 23:07:06 +0000 |
| parents | 3e13cd716cff |
| children | 33f0f28b945c |
| files | lisp/ChangeLog lisp/package-ui.el lisp/packages.el |
| diffstat | 3 files changed, 14 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jun 22 01:51:40 2001 +0000 +++ b/lisp/ChangeLog Sat Jun 30 23:07:06 2001 +0000 @@ -1,3 +1,14 @@ +2001-06-26 Robert Pluim <rpluim@bigfoot.com> + + * packages.el (locate-library): change to use read-library-name so + we can get completion + +2001-06-26 Robert Pluim <rpluim@bigfoot.com> + + * package-ui.el (pui-install-selected-packages): reverse the lists + of packages so that they get handled in the same order as they + were selected. + 2001-06-21 Ben Wing <ben@xemacs.org> * term\AT386.el:
--- a/lisp/package-ui.el Fri Jun 22 01:51:40 2001 +0000 +++ b/lisp/package-ui.el Sat Jun 30 23:07:06 2001 +0000 @@ -373,7 +373,7 @@ (mapcar (lambda (pkg) (package-admin-delete-binary-package pkg (package-admin-get-install-dir pkg nil))) - pui-deleted-packages) + (nreverse pui-deleted-packages)) (message "Packages deleted")))) (let ( (tmpbuf "*Packages-To-Install*") do-install) @@ -411,7 +411,7 @@ (if (not (package-get pkg nil nil pui-package-install-dest-dir)) (throw 'done nil))) - pui-selected-packages) + (nreverse pui-selected-packages)) t) (progn (pui-list-packages)
--- a/lisp/packages.el Fri Jun 22 01:51:40 2001 +0000 +++ b/lisp/packages.el Sat Jun 30 23:07:06 2001 +0000 @@ -191,7 +191,7 @@ If the optional third arg PATH is specified, that list of directories is used instead of `load-path'." - (interactive (list (read-string "Locate library: ") + (interactive (list (read-library-name "Locate library: ") nil nil t)) (let ((result