[Patch 21.5 R21.4] Improve (?) Help menu

Hi all, As I proposed earlier, I've added PROBLEMS to the Help menu. I've also reorganized and renamed several other elements. The idea is to better reflect how users would use things. For example, PROBLEMS is grouped with "Bug Report" and "Installation" as well as a new submenu "Recent History" containing entries for Messages and lossage. (The logic for subordinating the specific history commands is that they're included in the bug report anyway.) Similarly a number of informational entries like NEWS, licensing, and so on are grouped in a new submenu "More about XEmacs". I also removed the ellipses which I don't think are appropriate for "About" (but maybe OK for Unix man) and are a bit ugly. I'm considering moving Unix manual to the "Info (Online Docs)" submenu. I guess that would be renamed to something like "Unix Man and Info Docs". Before I commit, I'd like everybody to take a look at a quick screenshot: If there's no revolution (or even gagging noises of general revulsion), I'll commit in a couple of days. Here's the patch: # HG changeset patch # Parent 7c3e44003e0fb4331645030c7e230f1e588f5208 Reorganize Help menu. diff -r 7c3e44003e0f lisp/ChangeLog --- a/lisp/ChangeLog Fri Aug 03 02:15:20 2012 +0900 +++ b/lisp/ChangeLog Fri Aug 03 23:43:59 2012 +0900 ＠＠ -1,3 +1,11 ＠＠ +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. + 2012-05-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * byte-optimize.el (byte-optimize-letX): diff -r 7c3e44003e0f lisp/menubar-items.el --- a/lisp/menubar-items.el Fri Aug 03 02:15:20 2012 +0900 +++ b/lisp/menubar-items.el Fri Aug 03 23:43:59 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-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta