comparison lisp/menubar-items.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 6355bae896e3
comparison
equal deleted inserted replaced
1373:454552c204e8 1374:d638fc15d68b
565 ) 565 )
566 ) 566 )
567 567
568 ("%_Tools" 568 ("%_Tools"
569 ("%_Packages" 569 ("%_Packages"
570 ("%_Add Download Site" 570 ("%_Set Download Site"
571 :filter (lambda (&rest junk) 571 ("%_Official Releases"
572 (menu-split-long-menu 572 :filter (lambda (&rest junk)
573 (submenu-generate-accelerator-spec 573 (menu-split-long-menu
574 (package-ui-download-menu))))) 574 (submenu-generate-accelerator-spec
575 ("%_Pre-Release Download Sites" 575 (package-ui-download-menu)))))
576 :filter (lambda (&rest junk) 576 ("%_Pre-Releases"
577 (menu-split-long-menu 577 :filter (lambda (&rest junk)
578 (submenu-generate-accelerator-spec 578 (menu-split-long-menu
579 (package-ui-pre-release-download-menu))))) 579 (submenu-generate-accelerator-spec
580 (package-ui-pre-release-download-menu)))))
581 ("%_Site Releases"
582 :filter (lambda (&rest junk)
583 (menu-split-long-menu
584 (submenu-generate-accelerator-spec
585 (package-ui-site-release-download-menu))))))
580 "--:shadowEtchedIn" 586 "--:shadowEtchedIn"
581 ["%_Update Package Index" package-get-update-base] 587 ["%_Update Package Index" package-get-update-base]
582 ["%_List and Install" pui-list-packages] 588 ["%_List and Install" pui-list-packages]
583 ["U%_pdate Installed Packages" package-get-update-all] 589 ["U%_pdate Installed Packages" package-get-update-all]
584 ["%_Help" (Info-goto-node "(xemacs)Packages")]) 590 ["%_Help" (Info-goto-node "(xemacs)Packages")])