diff lisp/menubar-items.el @ 5697:40fbceabaafd

menubar-items.el (default-menubar): Reorganize. Add PROBLEMS to toplevel. New "More about XEmacs" submenu for NEWS, licensing, etc. New "Recent History" menu for messages, lossage, etc. Get rid of ugly and unexpressive ellipses.
author Stephen J. Turnbull <stephen@xemacs.org>
date Mon, 24 Dec 2012 03:08:33 +0900
parents cc6f0266bc36
children bbe4146603db c608d4b0b75e
line wrap: on
line diff
--- a/lisp/menubar-items.el	Mon Dec 24 01:07:25 2012 +0900
+++ b/lisp/menubar-items.el	Mon Dec 24 03:08:33 2012 +0900
@@ -1469,22 +1469,28 @@
      nil	      ; the partition: menus after this are flushright
 
      ("%_Help"
-     ["%_About XEmacs..." about-xemacs]
-     ["%_Home Page (www.xemacs.org)" xemacs-www-page
-      :active (fboundp 'browse-url)]
-     ["What's %_New in XEmacs" view-emacs-news]
+     ["%_About XEmacs and Contributors" about-xemacs]
+     ("%_More about XEmacs"
+      ["What's %_New in XEmacs" view-emacs-news]
+      ["XEmacs %_License" describe-copying]
+      ["%_No Warranty" describe-no-warranty]
+      ["%_Obtaining the Latest Version" describe-distribution]
+      ["View %_Splash Screen" xemacs-splash-buffer]
+      ["%_Home Page (www.xemacs.org)" xemacs-www-page
+       :active (fboundp 'browse-url)])
      ["B%_eta Info" describe-beta
       :included (string-match "beta" emacs-version)]
      "-----"
      ("%_Info (Online Docs)"
       ["%_Info Contents" (Info-goto-node "(dir)")]
+      ["%_How to Use Info" (Info-goto-node "(Info)")]
       "-----"
       ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")]
+      ["%_Getting Started with XEmacs" (Info-goto-node "(New-Users-Guide)")]
       ["XEmacs %_Lisp Reference Manual" (Info-goto-node "(Lispref)")]
       ["All About %_Packages" (Info-goto-node "(xemacs)Packages")]
-      ["%_Getting Started with XEmacs" (Info-goto-node "(New-Users-Guide)")]
+      ["Find %_Packages" finder-by-keyword]
       ["%_XEmacs Internals Manual" (Info-goto-node "(Internals)")]
-      ["%_How to Use Info" (Info-goto-node "(Info)")]
       "-----"
       ["Lookup %_Key Sequence in User's Manual..."
        Info-goto-emacs-key-command-node]
@@ -1554,20 +1560,15 @@
 	    ["Show %_Diagnosis for MULE" mule-diag :active nil]
 	    ["Show \"%_hello\" in Many Languages" view-hello-file]
 	    )))
-     ("%_Other"
-      ["%_Current Installation Info" describe-installation
-       :active (boundp 'Installation-string)]
-      ["%_Known Problems" view-xemacs-problems ]
-      ["%_Obtaining the Latest Version" describe-distribution]
-      ["%_No Warranty" describe-no-warranty]
-      ["XEmacs %_License" describe-copying]
-      ["Find %_Packages" finder-by-keyword]
-      ["View %_Splash Screen" xemacs-splash-buffer]
-      ["%_Unix Manual..." manual-entry])
+     ["%_Unix Manual" manual-entry]
      "-----"
-     ["Recent %_Messages" (view-lossage t)]
-     ["Recent %_Keystrokes" view-lossage]
-     ["Recent %_Warnings" view-warnings]
+     ["%_Current Installation Info" describe-installation
+      :active (boundp 'Installation-string)]
+     ["%_Known Problems" view-xemacs-problems ]
+     ("Recent History"
+      ["%_Messages" (view-lossage t)]
+      ["%_Keystrokes" view-lossage]
+      ["%_Warnings" view-warnings])
      ["Send %_Bug Report..." report-xemacs-bug
       :active (fboundp 'report-xemacs-bug)]))
    "The default XEmacs menubar.