Mercurial > hg > xemacs-beta
diff lisp/package-ui.el @ 1374:d638fc15d68b
[xemacs-hg @ 2003-03-24 11:10:54 by adrian]
[PATCH] xemacs-21.5: Prototype categorizing dowload sites into Official, Pre-, Site <of42qexg.fsf@ecf.teradyne.com>
| author | adrian |
|---|---|
| date | Mon, 24 Mar 2003 11:10:55 +0000 |
| parents | 02909207294a |
| children | 69a674f5861f |
line wrap: on
line diff
--- a/lisp/package-ui.el Sun Mar 23 22:52:26 2003 +0000 +++ b/lisp/package-ui.el Mon Mar 24 11:10:55 2003 +0000 @@ -181,6 +181,21 @@ package-get-pre-release-download-sites)) ;;;###autoload +(defun package-ui-site-release-download-menu () + "Build the 'Site Release Download Sites' menu." + (mapcar (lambda (site) + (vector (car site) + `(if (equal package-get-remote (quote ,(cdr site))) + (setq package-get-remote nil) + (package-ui-add-site (quote ,(cdr site)))) + ;; I've used radio buttons so that only a single + ;; site can be selected, but they are in fact + ;; toggles. SY. + :style 'radio + :selected `(equal package-get-remote (quote ,(cdr site))))) + package-get-site-release-download-sites)) + +;;;###autoload (defun pui-set-local-package-get-directory (dir) "Set a new package binary directory in `package-get-remote'. Note that no provision is made for saving any changes made by this function.