# HG changeset patch
# User viteno
# Date 1108851913 0
# Node ID 2f5d53e62972affc794927d22b107d688e2901fa
# Parent  d6a2e12b8411cd1a349b6d0112d6c4ecd8a3a1d0
[xemacs-hg @ 2005-02-19 22:25:12 by viteno]
Pui, adapt package name length in display.

diff -r d6a2e12b8411 -r 2f5d53e62972 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Feb 19 16:18:56 2005 +0000
+++ b/lisp/ChangeLog	Sat Feb 19 22:25:13 2005 +0000
@@ -1,3 +1,8 @@
+2005-02-19  Norbert Koch  <viteno@xemacs.org>
+
+	* package-ui.el (pui-list-packages): The longest package name now
+	has 20 characters.  Adapt the display.
+
 2005-02-18  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* XEmacs 21.5.19 "chives" is released.
diff -r d6a2e12b8411 -r 2f5d53e62972 lisp/package-ui.el
--- a/lisp/package-ui.el	Sat Feb 19 16:18:56 2005 +0000
+++ b/lisp/package-ui.el	Sat Feb 19 22:25:13 2005 +0000
@@ -607,11 +607,11 @@
 "))
     
     (if pui-list-verbose
-	(insert "                 Latest Installed
-  Package name   Vers.  Vers.   Description
+	(insert "                       Latest Installed
+  Package name         Vers.  Vers.   Description
 ")
-      (insert "                 Latest
-  Package name   Vers.  Description
+      (insert "                       Latest
+  Package name         Vers.  Description
 "))
     (insert sep-string)
     (setq start (point))
@@ -640,13 +640,13 @@
 		  ((numberp current-vers)
 		   (setq current-vers (format "%.2f" current-vers))))
 		 (insert
-		  (format "%s %-15s %-5.2f  %-5s  %s\n"
+		  (format "%s %-20s %-5.2f  %-5s  %s\n"
 			  (car disp) pkg-sym 
 			  (if (stringp version)
 			      (string-to-number version)
 			    version)
 			  current-vers desc)))
-	     (insert (format "%s %-15s %-5s %s\n"
+	     (insert (format "%s %-20s %-5s %s\n"
 			     (car disp)
 			     pkg-sym version desc)))
 	   (save-excursion