Mercurial > hg > xemacs-beta

diff lisp/package-ui.el @ 316:512e409c26a2 r21-0b56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b56
author cvs
date Mon, 13 Aug 2007 10:44:46 +0200
parents 341dac730539
children 19dcec799385
line wrap: on
line diff
--- a/lisp/package-ui.el	Mon Aug 13 10:44:26 2007 +0200
+++ b/lisp/package-ui.el	Mon Aug 13 10:44:46 2007 +0200
@@ -419,11 +419,23 @@
 		 (if pui-list-verbose
 		     (progn
 		       (setq current-vers (package-get-key pkg-sym :version))
-		       (if (not current-vers)
-			   (setq current-vers "-----"))
+		       (cond
+			( (not current-vers)
+			  (setq current-vers "-----") )
+			( (stringp current-vers)
+			  (setq current-vers
+				(format "%.2f"
+					(string-to-number current-vers))) )
+			( (numberp current-vers)
+			  (setq current-vers (format "%.2f" current-vers)) )
+			)
 		       (insert
-			(format "%s %-15s %-5s  %-5s  %s\n"
-				(car disp) pkg-sym version current-vers desc))
+			(format "%s %-15s %-5.2f  %-5s  %s\n"
+				(car disp) pkg-sym 
+				(if (stringp version)
+				    (string-to-number version)
+				  version)
+				current-vers desc))
 ;;		       (insert
 ;;			(format "\t\t  %-12s  %s\n"
 ;;				(package-get-info-prop info 'author-version)