Mercurial > hg > xemacs-beta

comparison lisp/package-ui.el @ 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 ecf1ebac70d8
children e29fcfd8df5f
comparison
equal deleted inserted replaced
2597:d6a2e12b8411 2598:2f5d53e62972
605 If you intend to install packages, specify download sites first. 605 If you intend to install packages, specify download sites first.
606 606
607 ")) 607 "))
608 608
609 (if pui-list-verbose 609 (if pui-list-verbose
610 (insert " Latest Installed 610 (insert " Latest Installed
611 Package name Vers. Vers. Description 611 Package name Vers. Vers. Description
612 ") 612 ")
613 (insert " Latest 613 (insert " Latest
614 Package name Vers. Description 614 Package name Vers. Description
615 ")) 615 "))
616 (insert sep-string) 616 (insert sep-string)
617 (setq start (point)) 617 (setq start (point))
618 (mapcar 618 (mapcar
619 #'(lambda (pkg) 619 #'(lambda (pkg)
638 (format "%.2f" 638 (format "%.2f"
639 (string-to-number current-vers)))) 639 (string-to-number current-vers))))
640 ((numberp current-vers) 640 ((numberp current-vers)
641 (setq current-vers (format "%.2f" current-vers)))) 641 (setq current-vers (format "%.2f" current-vers))))
642 (insert 642 (insert
643 (format "%s %-15s %-5.2f %-5s %s\n" 643 (format "%s %-20s %-5.2f %-5s %s\n"
644 (car disp) pkg-sym 644 (car disp) pkg-sym
645 (if (stringp version) 645 (if (stringp version)
646 (string-to-number version) 646 (string-to-number version)
647 version) 647 version)
648 current-vers desc))) 648 current-vers desc)))
649 (insert (format "%s %-15s %-5s %s\n" 649 (insert (format "%s %-20s %-5s %s\n"
650 (car disp) 650 (car disp)
651 pkg-sym version desc))) 651 pkg-sym version desc)))
652 (save-excursion 652 (save-excursion
653 (setq e (progn 653 (setq e (progn
654 (forward-line -1) 654 (forward-line -1)