Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 384:bbff43aa5eb7 r21-2-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-7
author cvs
date Mon, 13 Aug 2007 11:08:24 +0200
parents 064ab7fed2e0
children aabb7f5b1c81
comparison
equal deleted inserted replaced
383:6a50c6a581a5 384:bbff43aa5eb7
252 :group 'package-get) 252 :group 'package-get)
253 253
254 (defvar package-get-was-current nil 254 (defvar package-get-was-current nil
255 "Non-nil we did our best to fetch a current database.") 255 "Non-nil we did our best to fetch a current database.")
256 256
257
258 ;Shouldn't this be in package-ui?
257 ;;;###autoload 259 ;;;###autoload
258 (defun package-get-download-menu () 260 (defun package-get-download-menu ()
259 "Build the `Add Download Site' menu." 261 "Build the `Add Download Site' menu."
260 (mapcar (lambda (site) 262 (mapcar (lambda (site)
261 (vector (car site) 263 (vector (car site)
262 `(push (quote ,(cdr site)) 264 `(package-ui-add-site (quote ,(cdr site)))
263 package-get-remote) 265 :style 'toggle :selected
264 :style 'toggle 266 `(member (quote ,(cdr site)) package-get-remote)))
265 :selected `(member (quote ,(cdr site))
266 package-get-remote)))
267 package-get-download-sites)) 267 package-get-download-sites))
268 268
269 ;;;###autoload 269 ;;;###autoload
270 (defun package-get-require-base (&optional force-current) 270 (defun package-get-require-base (&optional force-current)
271 "Require that a package-get database has been loaded. 271 "Require that a package-get database has been loaded.
610 (this-requires (package-get-info-prop this-package 'requires)) 610 (this-requires (package-get-info-prop this-package 'requires))
611 (new-depends (set-difference 611 (new-depends (set-difference
612 (mapcar 612 (mapcar
613 #'(lambda (reqd) 613 #'(lambda (reqd)
614 (let* ((reqd-package (package-get-package-provider reqd)) 614 (let* ((reqd-package (package-get-package-provider reqd))
615 (reqd-version (cadr reqd-package))
615 (reqd-name (car reqd-package))) 616 (reqd-name (car reqd-package)))
616 (if (null reqd-name) 617 (if (null reqd-name)
617 (error "Unable to find a provider for %s" reqd)) 618 (error "Unable to find a provider for %s" reqd))
618 reqd-name)) 619 reqd-name))
619 this-requires) 620 this-requires)