Mercurial > hg > xemacs-beta

comparison lisp/package-ui.el @ 316:512e409c26a2 r21-0b56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b56
author cvs
date Mon, 13 Aug 2007 10:44:46 +0200
parents 341dac730539
children 19dcec799385
comparison
equal deleted inserted replaced
315:5e87bc5b1ee4 316:512e409c26a2
417 version)) 417 version))
418 (setq b (point)) 418 (setq b (point))
419 (if pui-list-verbose 419 (if pui-list-verbose
420 (progn 420 (progn
421 (setq current-vers (package-get-key pkg-sym :version)) 421 (setq current-vers (package-get-key pkg-sym :version))
422 (if (not current-vers) 422 (cond
423 (setq current-vers "-----")) 423 ( (not current-vers)
424 (setq current-vers "-----") )
425 ( (stringp current-vers)
426 (setq current-vers
427 (format "%.2f"
428 (string-to-number current-vers))) )
429 ( (numberp current-vers)
430 (setq current-vers (format "%.2f" current-vers)) )
431 )
424 (insert 432 (insert
425 (format "%s %-15s %-5s %-5s %s\n" 433 (format "%s %-15s %-5.2f %-5s %s\n"
426 (car disp) pkg-sym version current-vers desc)) 434 (car disp) pkg-sym
435 (if (stringp version)
436 (string-to-number version)
437 version)
438 current-vers desc))
427 ;; (insert 439 ;; (insert
428 ;; (format "\t\t %-12s %s\n" 440 ;; (format "\t\t %-12s %s\n"
429 ;; (package-get-info-prop info 'author-version) 441 ;; (package-get-info-prop info 'author-version)
430 ;; (package-get-info-prop info 'date) 442 ;; (package-get-info-prop info 'date)
431 ;; )) 443 ;; ))