CVS update by viteno MODIFIED: xemacs/lisp ...
User: viteno
Date: 05/02/19 23:25:14
Modified: xemacs/lisp ChangeLog package-ui.el
Log:
Pui, adapt package name length in display.
Revision Changes Path
1.642 +5 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.641
retrieving revision 1.642
diff -u -r1.641 -r1.642
--- ChangeLog 2005/02/18 06:28:55 1.641
+++ ChangeLog 2005/02/19 22:25:12 1.642
＠＠ -1,3 +1,8 ＠＠
+2005-02-19 Norbert Koch <viteno(a)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(a)xemacs.org>
* XEmacs 21.5.19 "chives" is released.
1.24 +6 -6 XEmacs/xemacs/lisp/package-ui.el
Index: package-ui.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/package-ui.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- package-ui.el 2004/11/04 23:05:55 1.23
+++ package-ui.el 2005/02/19 22:25:13 1.24
＠＠ -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