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&gt; + + * 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&gt; * 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