X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fpackage-ui.el;h=c0b93ad4ce43597ba6c8ac516b2ea5a9a7139554;hb=f772ab4d2e7ca57e8b3ab1967eaefe6e2475c7b0;hp=806bcf0abf0a18cf083093262b7265e7ef1ecedb;hpb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/package-ui.el b/lisp/package-ui.el
index 806bcf0..c0b93ad 100644
--- a/lisp/package-ui.el
+++ b/lisp/package-ui.el
@@ -373,7 +373,7 @@ and whether or not it is up-to-date."
 	(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 @@ and whether or not it is up-to-date."
 				(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)
@@ -424,6 +424,8 @@ and whether or not it is up-to-date."
       (if pui-deleted-packages
 	  (pui-list-packages)
 	(error "No packages have been selected!")))
+    ;; sync with windows type systems
+    (package-net-update-installed-db)
     ))
 
 (defun pui-add-required-packages ()
@@ -486,7 +488,7 @@ and whether or not it is up-to-date."
   "Display additional package info in the modeline.
 EXTENT determines the package to display (the package information is
 attached to the extent as properties)."
-  (let (pkg-sym info inst-ver auth-ver date maintainer)
+  (let (pkg-sym info inst-ver auth-ver date maintainer balloon req)
     (if (or force-update (not (current-message))
 	    (string-match ".*: .*: " (current-message))
 	    )
@@ -496,14 +498,29 @@ attached to the extent as properties)."
 		inst-ver (package-get-key pkg-sym :version)
 		auth-ver (package-get-info-prop info 'author-version)
 		date (package-get-info-prop info 'date)
-		maintainer (package-get-info-prop info 'maintainer))
+		maintainer (package-get-info-prop info 'maintainer)
+		req (package-get-info-prop info 'requires))
 	  (if (not inst-ver)
-	      (setq inst-ver ""))
+	      (setq inst-ver 0))
+	  (if (featurep 'balloon-help)
+	      (progn
+		(setq balloon (format "
+Package Information:  [For package: \"%s\"]
+================
+Installed Version : %.2f
+Author Version : %s
+Maintainer: %s
+Released: %s
+Required Packages : %s\n\n"
+				      pkg-sym inst-ver auth-ver maintainer 
+				      date req))
+		(set-extent-property extent 'balloon-help balloon)))
 	  (if pui-list-verbose
-	      (format "Author version: %-8s %11s: %s"
-		      auth-ver date maintainer)
-	    (format "%-6s: %-8s %11s: %s"
-		    inst-ver auth-ver date maintainer))
+	      (format 
+	       "Inst V: %.2f Auth V: %s Maint: %s" 
+	       inst-ver auth-ver maintainer)
+	    (format "%.2f : %s : %s"
+		    inst-ver auth-ver maintainer))
 	  ))
     ))