Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 292:6cb5e14cd98e r21-0b44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b44
author cvs
date Mon, 13 Aug 2007 10:37:15 +0200
parents e11d67e05968
children 4b85ae5eabfb
comparison
equal deleted inserted replaced
291:7aa74ac42bd2 292:6cb5e14cd98e
158 158
159 (defvar package-get-remove-copy nil 159 (defvar package-get-remove-copy nil
160 "*After copying and installing a package, if this is T, then remove the 160 "*After copying and installing a package, if this is T, then remove the
161 copy. Otherwise, keep it around.") 161 copy. Otherwise, keep it around.")
162 162
163 ;;;###autoload
163 (defun package-get-update-all () 164 (defun package-get-update-all ()
164 "Fetch and install the latest versions of all currently installed packages." 165 "Fetch and install the latest versions of all currently installed packages."
165 (interactive) 166 (interactive)
166 ;; Load a fresh copy 167 ;; Load a fresh copy
167 (load "package-get-base.el") 168 (load "package-get-base.el")
168 (mapcar (lambda (pkg) 169 (mapcar (lambda (pkg)
169 (package-get-all 170 (package-get-all
170 (car pkg) nil)) 171 (car pkg) nil))
171 packages-package-list)) 172 packages-package-list))
172 173
174 ;;;###autoload
173 (defun package-get-all (package version &optional fetched-packages) 175 (defun package-get-all (package version &optional fetched-packages)
174 "Fetch PACKAGE with VERSION and all other required packages. 176 "Fetch PACKAGE with VERSION and all other required packages.
175 Uses `package-get-base' to determine just what is required and what 177 Uses `package-get-base' to determine just what is required and what
176 package provides that functionality. If VERSION is nil, retrieves 178 package provides that functionality. If VERSION is nil, retrieves
177 latest version. Optional argument FETCHED-PACKAGES is used to keep 179 latest version. Optional argument FETCHED-PACKAGES is used to keep
207 ) 209 )
208 (setq this-requires (cdr this-requires))) 210 (setq this-requires (cdr this-requires)))
209 fetched-packages 211 fetched-packages
210 )) 212 ))
211 213
214 ;;;###autoload
212 (defun package-get (package &optional version conflict) 215 (defun package-get (package &optional version conflict)
213 "Fetch PACKAGE from remote site. 216 "Fetch PACKAGE from remote site.
214 Optional arguments VERSION indicates which version to retrieve, nil 217 Optional arguments VERSION indicates which version to retrieve, nil
215 means most recent version. CONFLICT indicates what happens if the 218 means most recent version. CONFLICT indicates what happens if the
216 package is already installed. Valid values for CONFLICT are: 219 package is already installed. Valid values for CONFLICT are:
404 ;; 407 ;;
405 (defgroup packages nil 408 (defgroup packages nil
406 "Configure XEmacs packages." 409 "Configure XEmacs packages."
407 :group 'emacs) 410 :group 'emacs)
408 411
412 ;;;###autoload
409 (defun package-get-custom () 413 (defun package-get-custom ()
410 "Fetch and install the latest versions of all customized packages." 414 "Fetch and install the latest versions of all customized packages."
411 (interactive) 415 (interactive)
412 ;; Load a fresh copy 416 ;; Load a fresh copy
413 (load "package-get-base.el") 417 (load "package-get-base.el")