Mercurial > hg > xemacs-beta

changeset 2598:2f5d53e62972

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-19 22:25:12 by viteno] Pui, adapt package name length in display.
author viteno
date Sat, 19 Feb 2005 22:25:13 +0000
parents d6a2e12b8411
children f9dbad8a5504
files lisp/ChangeLog lisp/package-ui.el
diffstat 2 files changed, 11 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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