Mercurial > hg > xemacs-beta

comparison lisp/package-ui.el @ 1374:d638fc15d68b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
1373:454552c204e8 1374:d638fc15d68b
177 ;; site can be selected, but they are in fact 177 ;; site can be selected, but they are in fact
178 ;; toggles. SY. 178 ;; toggles. SY.
179 :style 'radio 179 :style 'radio
180 :selected `(equal package-get-remote (quote ,(cdr site))))) 180 :selected `(equal package-get-remote (quote ,(cdr site)))))
181 package-get-pre-release-download-sites)) 181 package-get-pre-release-download-sites))
182
183 ;;;###autoload
184 (defun package-ui-site-release-download-menu ()
185 "Build the 'Site Release Download Sites' menu."
186 (mapcar (lambda (site)
187 (vector (car site)
188 `(if (equal package-get-remote (quote ,(cdr site)))
189 (setq package-get-remote nil)
190 (package-ui-add-site (quote ,(cdr site))))
191 ;; I've used radio buttons so that only a single
192 ;; site can be selected, but they are in fact
193 ;; toggles. SY.
194 :style 'radio
195 :selected `(equal package-get-remote (quote ,(cdr site)))))
196 package-get-site-release-download-sites))
182 197
183 ;;;###autoload 198 ;;;###autoload
184 (defun pui-set-local-package-get-directory (dir) 199 (defun pui-set-local-package-get-directory (dir)
185 "Set a new package binary directory in `package-get-remote'. 200 "Set a new package binary directory in `package-get-remote'.
186 Note that no provision is made for saving any changes made by this function. 201 Note that no provision is made for saving any changes made by this function.