Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 355:182f72e8cd0d r21-1-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-7
author cvs
date Mon, 13 Aug 2007 10:56:21 +0200
parents 3b3709405255
children 4711e16a8e49
comparison
equal deleted inserted replaced
354:3729bef672e0 355:182f72e8cd0d
178 :tag "Package repository" 178 :tag "Package repository"
179 :type '(repeat (choice (list :tag "Local" (const :tag "Local" nil) directory ) 179 :type '(repeat (choice (list :tag "Local" (const :tag "Local" nil) directory )
180 (list :tag "Remote" host-name directory) )) 180 (list :tag "Remote" host-name directory) ))
181 :group 'package-get) 181 :group 'package-get)
182 182
183 ;;;###autoload
183 (defcustom package-get-download-sites 184 (defcustom package-get-download-sites
184 '( 185 '(
185 ;; North America 186 ;; North America
186 ("xemacs.org" "ftp.xemacs.org" "pub/xemacs/packages") 187 ("xemacs.org" "ftp.xemacs.org" "pub/xemacs/packages")
187 ("cso.uiuc.edu" "ftp.cso.uiuc.edu" "pub/packages/xemacs/packages") 188 ("cso.uiuc.edu" "ftp.cso.uiuc.edu" "pub/packages/xemacs/packages")
259 ;Shouldn't this be in package-ui? 260 ;Shouldn't this be in package-ui?
260 ;;;###autoload 261 ;;;###autoload
261 (defun package-get-download-menu () 262 (defun package-get-download-menu ()
262 "Build the `Add Download Site' menu." 263 "Build the `Add Download Site' menu."
263 (mapcar (lambda (site) 264 (mapcar (lambda (site)
264 (vector (car site) 265 (vector (car site)
265 `(package-ui-add-site (quote ,(cdr site))) 266 `(if (member (quote ,(cdr site))
266 :style 'toggle :selected 267 package-get-remote)
267 `(member (quote ,(cdr site)) package-get-remote))) 268 (setq package-get-remote
268 package-get-download-sites)) 269 (delete (quote ,(cdr site)) package-get-remote))
270 (package-ui-add-site (quote ,(cdr site))))
271 :style 'toggle
272 :selected `(member (quote ,(cdr site))
273 package-get-remote)))
274 package-get-download-sites))
269 275
270 ;;;###autoload 276 ;;;###autoload
271 (defun package-get-require-base (&optional force-current) 277 (defun package-get-require-base (&optional force-current)
272 "Require that a package-get database has been loaded. 278 "Require that a package-get database has been loaded.
273 If the optional FORCE-CURRENT argument or the value of 279 If the optional FORCE-CURRENT argument or the value of
999 (setq found 1005 (setq found
1000 (list (caar packages) 1006 (list (caar packages)
1001 (package-get-info-prop (car this-package) 'version)))) 1007 (package-get-info-prop (car this-package) 'version))))
1002 (setq this-package (cdr this-package))))) 1008 (setq this-package (cdr this-package)))))
1003 (setq packages (cdr packages))) 1009 (setq packages (cdr packages)))
1010 (when (interactive-p)
1011 (if found
1012 (message "%S" found)
1013 (message "No appropriate package found")))
1004 found)) 1014 found))
1005 1015
1006 ;; 1016 ;;
1007 ;; customize interfaces. 1017 ;; customize interfaces.
1008 ;; The group is in this file so that custom loads includes this file. 1018 ;; The group is in this file so that custom loads includes this file.