APPROVE COMMIT 21.5 What it says. I think this is better and more informative, but I will happily accept suggestions, or if people really don't like it, revert it. diff -r dede3f658f8e -r ecf5a43d7546 lisp/ChangeLog --- a/lisp/ChangeLog Sat Aug 04 23:26:26 2012 +0900 +++ b/lisp/ChangeLog Sun Aug 05 23:57:21 2012 +0900 ＠＠ -0,0 +1,8 ＠＠ +2012-08-03 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * 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. + diff -r dede3f658f8e -r ecf5a43d7546 lisp/menubar-items.el --- a/lisp/menubar-items.el Sat Aug 04 23:26:26 2012 +0900 +++ b/lisp/menubar-items.el Sun Aug 05 23:57:21 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. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches