Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 359:8e84bee8ddd0 r21-1-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-9
author cvs
date Mon, 13 Aug 2007 10:57:55 +0200
parents 4711e16a8e49
children 972bbb6d6ca2
comparison
equal deleted inserted replaced
358:fed6e0f6a03a 359:8e84bee8ddd0
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 ("xemacs.org" "ftp.xemacs.org" "pub/xemacs/packages") 187 ("xemacs.org" "ftp.xemacs.org" "pub/xemacs/packages")
188 ("cso.uiuc.edu" "ftp.cso.uiuc.edu" "pub/packages/xemacs/packages") 188 ("crc.ca (Canada)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages")
189 189 ("ualberta.ca (Canada)" "sunsite.ualberta.ca" "pub/Mirror/xemacs/packages")
190 ("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 ("utk.edu (United States)" "ftp.sunsite.utk.edu" "pub/xemacs/packages")
193
190 ;; South America 194 ;; South America
191 ("unicamp.br" "ftp.unicamp.br" "pub/xemacs/packages") 195 ("unicamp.br (Brazil)" "ftp.unicamp.br" "pub/xemacs/packages")
192 196
193 ;; Europe 197 ;; Europe
194 ("sunsite.cnlab-switch.ch" "sunsite.cnlab-switch.ch" "mirror/xemacs/packages") 198 ("tuwien.ac.at (Austria)" "gd.tuwien.ac.at" "editors/xemacs/packages")
195 ("tu-darmstadt.de" "ftp.tu-darmstadt.de" "pub/editors/xemacs/packages") 199 ("auc.dk (Denmark)" "sunsite.auc.dk" "pub/emacs/xemacs/packages")
196 ("sunsite.auc.dk" "sunsite.auc.dk" "pub/emacs/xemacs/packages") 200 ("doc.ic.ac.uk (England)" "sunsite.doc.ic.ac.uk" "packages/xemacs/packages")
197 ("pasteur.fr" "ftp.pasteur.fr" "pub/computing/xemacs/packages") 201 ("mirror.ac.uk (England)" "ftp.mirror.ac.uk" "sites/ftp.xemacs.org/pub/xemacs/packages")
198 ("cenatls.cena.dgac.fr" "ftp.cenatls.cena.dgac.fr" "pub/Emacs/xemacs/packages") 202 ("funet.fi (Finland)" "ftp.funet.fi" "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/packages")
199 ("kfki.hu" "ftp.kfki.hu" "pub/packages/xemacs/packages") 203 ("pasteur.fr (France)" "ftp.pasteur.fr" "pub/computing/xemacs/packages")
200 ("uniroma2.it" "ftp.uniroma2.it" "unix/misc/dist/XEMACS/packages") 204 ("tls.cena.fr (France)" "ftp.tls.cena.fr" "Emacs/xemacs/packages")
201 ("icm.edu.pl" "ftp.icm.edu.pl" "pub/unix/editors/xemacs/packages") 205 ("freenet.de (Germany)" "ftp.freenet.de" "pub/ftp.xemacs.org/tux/xemacs/packages")
202 ("sunet.se" "ftp.sunet.se" "pub/gnu/xemacs/packages") 206 ("tu-darmstadt.de (Germany)" "ftp.tu-darmstadt.de" "pub/editors/xemacs/packages")
203 ("doc.ic.ac.uk" "sunsite.doc.ic.ac.uk" "packages/xemacs/packages") 207 ("kfki.hu (Hungary)" "ftp.kfki.hu" "pub/packages/xemacs/packages")
204 ("srcc.msu.su" "ftp1.srcc.msu.su" "mirror/ftp.xemacs.org/packages") 208 ("eunet.ie (Ireland)" "ftp.eunet.ie" "mirrors/ftp.xemacs.org/pub/xemacs/packages")
205 209 ("uniroma2.it (Italy)" "ftp.uniroma2.it" "unix/misc/dist/XEMACS/packages")
210 ("uio.no (Norway)" "sunsite.uio.no" "pub/xemacs/packages")
211 ("icm.edu.pl (Poland)" "ftp.icm.edu.pl" "pub/unix/editors/xemacs/packages")
212 ("srcc.msu.su (Russia)" "ftp.srcc.msu.su" "mirror/ftp.xemacs.org/packages")
213 ("sunet.se (Sweden)" "ftp.sunet.se" "pub/gnu/xemacs/packages")
214 ("cnlab-switch.ch (Switzerland)" "sunsite.cnlab-switch.ch" "mirror/xemacs/packages")
215
206 ;; Asia 216 ;; Asia
207 ("usyd.edu.au" "ftp.usyd.edu.au" "pub/Xemacs/packages") 217 ("aist.go.jp (Japan)" "ring.aist.go.jp" "pub/text/xemacs/packages")
208 ("netlab.is.tsukuba.ac.jp" "ftp.netlab.is.tsukuba.ac.jp" "pub/GNU/xemacs/packages") 218 ("asahi-net.or.jp (Japan)" "ring.asahi-net.or.jp" "pub/text/xemacs/packages")
209 ("jaist.ac.jp" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages") 219 ("dti.ad.jp (Japan)" "ftp.dti.ad.jp" "pub/unix/editor/xemacs/packages")
210 ("ring.aist.go.jp" "ring.aist.go.jp" "pub/text/xemacs/packages") 220 ("jaist.ac.jp (Japan)" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages")
211 ("ring.asahi-net.or.jp" "ring.asahi-net.or.jp" "pub/text/xemacs/packages") 221 ("nucba.ac.jp (Japan)" "mirror.nucba.ac.jp" "mirror/xemacs/packages")
212 ("SunSITE.sut.ac.jp" "SunSITE.sut.ac.jp" "pub/archives/packages/xemacs/packages") 222 ("sut.ac.jp (Japan)" "sunsite.sut.ac.jp" "pub/archives/packages/xemacs/packages")
213 ("dti.ad.jp" "ftp.dti.ad.jp" "pub/unix/editor/xemacs/packages") 223 ("tsukuba.ac.jp (Japan)" "ftp.netlab.is.tsukuba.ac.jp" "pub/GNU/xemacs/packages")
214 ("kreonet.re.kr" "ftp.kreonet.re.kr" "pub/tools/emacs/xemacs/packages") 224 ("kreonet.re.kr (Korea)" "ftp.kreonet.re.kr" "pub/tools/emacs/xemacs/packages")
225 ("nctu.edu.tw (Taiwan)" "coda.nctu.edu.tw" "Editors/xemacs/packages")
226
227 ;; Africa
228 ("sun.ac.za (South Africa)" "ftp.sun.ac.za" "xemacs/packages")
229
230 ;; Middle East
231 ("isu.net.sa (Saudi Arabia)" "ftp.isu.net.sa" "pub/mirrors/ftp.xemacs.org/packages")
232
233 ;; Australia
234 ("aarnet.edu.au (Australia)" "mirror.aarnet.edu.au" "pub/xemacs/packages")
215 ) 235 )
216 "*List of remote sites available for downloading packages. 236 "*List of remote sites available for downloading packages.
217 List format is '(site-description site-name directory-on-site). 237 List format is '(site-description site-name directory-on-site).
218 SITE-DESCRIPTION is a textual description of the site. SITE-NAME 238 SITE-DESCRIPTION is a textual description of the site. SITE-NAME
219 is the internet address of the download site. DIRECTORY-ON-SITE 239 is the internet address of the download site. DIRECTORY-ON-SITE
220 is the directory on the site in which packages may be found. 240 is the directory on the site in which packages may be found.
221 This variable is used to initialize `package-get-remote', the 241 This variable is used to initialize `package-get-remote', the
222 variable actually used to specify package download sites." 242 variable actually used to specify package download sites."
223 :tag "Package download sites" 243 :tag "Package download sites"
224 :type '(repeat (list hostname directory)) 244 :type '(repeat (list (string :tag "Name") host-name directory))
225 :group 'package-get) 245 :group 'package-get)
226 246
227 (defcustom package-get-remove-copy t 247 (defcustom package-get-remove-copy t
228 "*After copying and installing a package, if this is T, then remove the 248 "*After copying and installing a package, if this is T, then remove the
229 copy. Otherwise, keep it around." 249 copy. Otherwise, keep it around."
350 (insert-file-contents location) 370 (insert-file-contents location)
351 (md5 (current-buffer)))) 371 (md5 (current-buffer))))
352 (unless (file-writable-p location) 372 (unless (file-writable-p location)
353 (setq location (expand-file-name package-get-base-filename 373 (setq location (expand-file-name package-get-base-filename
354 (expand-file-name "etc/" package-get-user-package-location)))) 374 (expand-file-name "etc/" package-get-user-package-location))))
355 (when (y-or-n-p (concat "Update package index in" location "? ")) 375 (when (y-or-n-p (concat "Update package index in " location "? "))
356 (write-file location)))))) 376 (write-file location))))))
357 377
358 378
359 ;;;###autoload 379 ;;;###autoload
360 (defun package-get-update-base (&optional db-file force-current) 380 (defun package-get-update-base (&optional db-file force-current)