Mercurial > hg > xemacs-beta
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")]) |