Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 9d177e8d4150
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
30 30
31 ;; package-get - 31 ;; package-get -
32 ;; Retrieve a package and any other required packages from an archive 32 ;; Retrieve a package and any other required packages from an archive
33 ;; 33 ;;
34 ;; 34 ;;
35 ;; Note (JV): Most of this no longer aplies! 35 ;; Note (JV): Most of this no longer applies!
36 ;; 36 ;;
37 ;; The idea: 37 ;; The idea:
38 ;; A new XEmacs lisp-only release is generated with the following steps: 38 ;; A new XEmacs lisp-only release is generated with the following steps:
39 ;; 1. The maintainer runs some yet to be written program that 39 ;; 1. The maintainer runs some yet to be written program that
40 ;; generates all the dependency information. This should 40 ;; generates all the dependency information. This should
449 (yes-or-no-p 449 (yes-or-no-p
450 (concat "Can't find PGP, continue without " 450 (concat "Can't find PGP, continue without "
451 "package-get DB verification? "))))) 451 "package-get DB verification? ")))))
452 (t nil))))) 452 (t nil)))))
453 (error "Package-get PGP signature failed to verify")) 453 (error "Package-get PGP signature failed to verify"))
454 ;; ToDo: We shoud call package-get-maybe-save-index on the region 454 ;; ToDo: We should call package-get-maybe-save-index on the region
455 (package-get-update-base-entries content-beg content-end) 455 (package-get-update-base-entries content-beg content-end)
456 (message "Updated package-get database")))) 456 (message "Updated package-get database"))))
457 457
458 (defun package-get-update-base-entries (beg end) 458 (defun package-get-update-base-entries (beg end)
459 "Update the package-get database with the entries found between 459 "Update the package-get database with the entries found between