Mercurial > hg > xemacs-beta

comparison lisp/package-ui.el @ 624:59c2a61efa7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-06-30 23:07:06 by youngs] Patches from Robert Pluim <rpluim@bigfoot.com> - small changes to package code
author youngs
date Sat, 30 Jun 2001 23:07:06 +0000
parents d7a9135ec789
children d83885ef293b
comparison
equal deleted inserted replaced
623:3e13cd716cff 624:59c2a61efa7d
371 (when do-delete 371 (when do-delete
372 (message "Deleting selected packages ...") (sit-for 0) 372 (message "Deleting selected packages ...") (sit-for 0)
373 (mapcar (lambda (pkg) 373 (mapcar (lambda (pkg)
374 (package-admin-delete-binary-package 374 (package-admin-delete-binary-package
375 pkg (package-admin-get-install-dir pkg nil))) 375 pkg (package-admin-get-install-dir pkg nil)))
376 pui-deleted-packages) 376 (nreverse pui-deleted-packages))
377 (message "Packages deleted")))) 377 (message "Packages deleted"))))
378 378
379 (let ( (tmpbuf "*Packages-To-Install*") do-install) 379 (let ( (tmpbuf "*Packages-To-Install*") do-install)
380 (if pui-selected-packages 380 (if pui-selected-packages
381 (progn 381 (progn
409 (if (catch 'done 409 (if (catch 'done
410 (mapcar (lambda (pkg) 410 (mapcar (lambda (pkg)
411 (if (not (package-get pkg nil nil 411 (if (not (package-get pkg nil nil
412 pui-package-install-dest-dir)) 412 pui-package-install-dest-dir))
413 (throw 'done nil))) 413 (throw 'done nil)))
414 pui-selected-packages) 414 (nreverse pui-selected-packages))
415 t) 415 t)
416 (progn 416 (progn
417 (pui-list-packages) 417 (pui-list-packages)
418 (message "Packages installed") 418 (message "Packages installed")
419 )) 419 ))