Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children d7a9135ec789
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
182 182
183 ;;;###autoload 183 ;;;###autoload
184 (defcustom package-get-download-sites 184 (defcustom package-get-download-sites
185 '( 185 '(
186 ;; North America 186 ;; North America
187 ("Pre-Releases" "ftp.xemacs.org" "pub/xemacs/beta/experimental/packages")
187 ("xemacs.org" "ftp.xemacs.org" "pub/xemacs/packages") 188 ("xemacs.org" "ftp.xemacs.org" "pub/xemacs/packages")
188 ("crc.ca (Canada)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages") 189 ("crc.ca (Canada)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages")
189 ("ualberta.ca (Canada)" "sunsite.ualberta.ca" "pub/Mirror/xemacs/packages") 190 ("ualberta.ca (Canada)" "sunsite.ualberta.ca" "pub/Mirror/xemacs/packages")
190 ("uiuc.edu (United States)" "uiarchive.uiuc.edu" "pub/packages/xemacs/packages") 191 ("uiuc.edu (United States)" "uiarchive.uiuc.edu" "pub/packages/xemacs/packages")
191 ("unc.edu (United States)" "metalab.unc.edu" "pub/packages/editors/xemacs/packages") 192 ("unc.edu (United States)" "metalab.unc.edu" "pub/packages/editors/xemacs/packages")
455 (error "Package-get PGP signature failed to verify")) 456 (error "Package-get PGP signature failed to verify"))
456 ;; ToDo: We should call package-get-maybe-save-index on the region 457 ;; ToDo: We should call package-get-maybe-save-index on the region
457 (package-get-update-base-entries content-beg content-end) 458 (package-get-update-base-entries content-beg content-end)
458 (message "Updated package-get database")))) 459 (message "Updated package-get database"))))
459 460
460 (defun package-get-update-base-entries (beg end) 461 (defun package-get-update-base-entries (start end)
461 "Update the package-get database with the entries found between 462 "Update the package-get database with the entries found between
462 BEG and END in the current buffer." 463 START and END in the current buffer."
463 (save-excursion 464 (save-excursion
464 (goto-char beg) 465 (goto-char start)
465 (if (not (re-search-forward "^(package-get-update-base-entry" nil t)) 466 (if (not (re-search-forward "^(package-get-update-base-entry" nil t))
466 (error "Buffer does not contain package-get database entries")) 467 (error "Buffer does not contain package-get database entries"))
467 (beginning-of-line) 468 (beginning-of-line)
468 (let ((count 0)) 469 (let ((count 0))
469 (while (and (< (point) end) 470 (while (and (< (point) end)