# HG changeset patch
# User youngs
# Date 993942426 0
# Node ID 59c2a61efa7d6edcf0018e69bc60bbc726859d76
# Parent  3e13cd716cffb917c9feef5a5b450edab884fd88
[xemacs-hg @ 2001-06-30 23:07:06 by youngs]
Patches from Robert Pluim  <rpluim@bigfoot.com> - small changes to package code

diff -r 3e13cd716cff -r 59c2a61efa7d lisp/ChangeLog
--- 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:
diff -r 3e13cd716cff -r 59c2a61efa7d lisp/package-ui.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)
diff -r 3e13cd716cff -r 59c2a61efa7d lisp/packages.el
--- 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