diff 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
line wrap: on
line diff
--- a/lisp/menubar-items.el	Sun Mar 23 22:52:26 2003 +0000
+++ b/lisp/menubar-items.el	Mon Mar 24 11:10:55 2003 +0000
@@ -567,16 +567,22 @@
      
      ("%_Tools"
       ("%_Packages"
-       ("%_Add Download Site"
-	:filter (lambda (&rest junk)
-		  (menu-split-long-menu
-		   (submenu-generate-accelerator-spec
-		    (package-ui-download-menu)))))
-       ("%_Pre-Release Download Sites"
-	:filter (lambda (&rest junk)
-		  (menu-split-long-menu
-		   (submenu-generate-accelerator-spec
-		    (package-ui-pre-release-download-menu)))))
+       ("%_Set Download Site"
+	("%_Official Releases"
+	 :filter (lambda (&rest junk)
+		   (menu-split-long-menu
+		    (submenu-generate-accelerator-spec
+		     (package-ui-download-menu)))))
+	("%_Pre-Releases"
+	 :filter (lambda (&rest junk)
+		   (menu-split-long-menu
+		    (submenu-generate-accelerator-spec
+		     (package-ui-pre-release-download-menu)))))
+	("%_Site Releases"
+	 :filter (lambda (&rest junk)
+		   (menu-split-long-menu
+		    (submenu-generate-accelerator-spec
+		     (package-ui-site-release-download-menu))))))
        "--:shadowEtchedIn"
        ["%_Update Package Index" package-get-update-base]
        ["%_List and Install" pui-list-packages]