Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 337:fbbf69b4e8a7 r21-0-66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-66
author cvs
date Mon, 13 Aug 2007 10:51:02 +0200
parents 54f7aa390f4f
children 8429d81ab209
comparison
equal deleted inserted replaced
336:fe0a93612022 337:fbbf69b4e8a7
235 ("Add Download Site" 235 ("Add Download Site"
236 :filter (lambda (&rest junk) 236 :filter (lambda (&rest junk)
237 (package-get-download-menu))) 237 (package-get-download-menu)))
238 ["Update Package Index" package-get-update-base] 238 ["Update Package Index" package-get-update-base]
239 ["List & Install" pui-list-packages] 239 ["List & Install" pui-list-packages]
240 ("Using Custom" 240 ["Update Installed Packages" package-get-update-all]
241 ("Select" :filter (lambda (&rest junk) 241 ;; hack-o-matic, we can't force a laod of package-base here
242 (cdr (custom-menu-create 'packages)))) 242 ;; since it triggers dialog box interactions which we can't
243 ["Update" package-get-custom]) 243 ;; deal while using a menu
244 ("Using Custom"
245 :filter (lambda (&rest junk)
246 (if package-get-base
247 (cdr (custom-menu-create 'packages))
248 '(["Please load Package Index" (lamda (&rest junk) ()) nil]))))
249
244 ["Help" (Info-goto-node "(xemacs)Packages")]) 250 ["Help" (Info-goto-node "(xemacs)Packages")])
245 251
246 "---" 252 "---"
247 253
248 ("Editing Options" 254 ("Editing Options"