Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
5696:9f1c9f957073 5697:40fbceabaafd
1467 ) 1467 )
1468 1468
1469 nil ; the partition: menus after this are flushright 1469 nil ; the partition: menus after this are flushright
1470 1470
1471 ("%_Help" 1471 ("%_Help"
1472 ["%_About XEmacs..." about-xemacs] 1472 ["%_About XEmacs and Contributors" about-xemacs]
1473 ["%_Home Page (www.xemacs.org)" xemacs-www-page 1473 ("%_More about XEmacs"
1474 :active (fboundp 'browse-url)] 1474 ["What's %_New in XEmacs" view-emacs-news]
1475 ["What's %_New in XEmacs" view-emacs-news] 1475 ["XEmacs %_License" describe-copying]
1476 ["%_No Warranty" describe-no-warranty]
1477 ["%_Obtaining the Latest Version" describe-distribution]
1478 ["View %_Splash Screen" xemacs-splash-buffer]
1479 ["%_Home Page (www.xemacs.org)" xemacs-www-page
1480 :active (fboundp 'browse-url)])
1476 ["B%_eta Info" describe-beta 1481 ["B%_eta Info" describe-beta
1477 :included (string-match "beta" emacs-version)] 1482 :included (string-match "beta" emacs-version)]
1478 "-----" 1483 "-----"
1479 ("%_Info (Online Docs)" 1484 ("%_Info (Online Docs)"
1480 ["%_Info Contents" (Info-goto-node "(dir)")] 1485 ["%_Info Contents" (Info-goto-node "(dir)")]
1486 ["%_How to Use Info" (Info-goto-node "(Info)")]
1481 "-----" 1487 "-----"
1482 ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")] 1488 ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")]
1489 ["%_Getting Started with XEmacs" (Info-goto-node "(New-Users-Guide)")]
1483 ["XEmacs %_Lisp Reference Manual" (Info-goto-node "(Lispref)")] 1490 ["XEmacs %_Lisp Reference Manual" (Info-goto-node "(Lispref)")]
1484 ["All About %_Packages" (Info-goto-node "(xemacs)Packages")] 1491 ["All About %_Packages" (Info-goto-node "(xemacs)Packages")]
1485 ["%_Getting Started with XEmacs" (Info-goto-node "(New-Users-Guide)")] 1492 ["Find %_Packages" finder-by-keyword]
1486 ["%_XEmacs Internals Manual" (Info-goto-node "(Internals)")] 1493 ["%_XEmacs Internals Manual" (Info-goto-node "(Internals)")]
1487 ["%_How to Use Info" (Info-goto-node "(Info)")]
1488 "-----" 1494 "-----"
1489 ["Lookup %_Key Sequence in User's Manual..." 1495 ["Lookup %_Key Sequence in User's Manual..."
1490 Info-goto-emacs-key-command-node] 1496 Info-goto-emacs-key-command-node]
1491 ["Lookup %_Command in User's Manual..." Info-goto-emacs-command-node] 1497 ["Lookup %_Command in User's Manual..." Info-goto-emacs-command-node]
1492 ["Lookup %_Function in Lisp Reference..." Info-elisp-ref] 1498 ["Lookup %_Function in Lisp Reference..." Info-elisp-ref]
1552 ["Show Character %_Table" view-charset-by-menu] 1558 ["Show Character %_Table" view-charset-by-menu]
1553 ;; not implemented yet 1559 ;; not implemented yet
1554 ["Show %_Diagnosis for MULE" mule-diag :active nil] 1560 ["Show %_Diagnosis for MULE" mule-diag :active nil]
1555 ["Show \"%_hello\" in Many Languages" view-hello-file] 1561 ["Show \"%_hello\" in Many Languages" view-hello-file]
1556 ))) 1562 )))
1557 ("%_Other" 1563 ["%_Unix Manual" manual-entry]
1558 ["%_Current Installation Info" describe-installation
1559 :active (boundp 'Installation-string)]
1560 ["%_Known Problems" view-xemacs-problems ]
1561 ["%_Obtaining the Latest Version" describe-distribution]
1562 ["%_No Warranty" describe-no-warranty]
1563 ["XEmacs %_License" describe-copying]
1564 ["Find %_Packages" finder-by-keyword]
1565 ["View %_Splash Screen" xemacs-splash-buffer]
1566 ["%_Unix Manual..." manual-entry])
1567 "-----" 1564 "-----"
1568 ["Recent %_Messages" (view-lossage t)] 1565 ["%_Current Installation Info" describe-installation
1569 ["Recent %_Keystrokes" view-lossage] 1566 :active (boundp 'Installation-string)]
1570 ["Recent %_Warnings" view-warnings] 1567 ["%_Known Problems" view-xemacs-problems ]
1568 ("Recent History"
1569 ["%_Messages" (view-lossage t)]
1570 ["%_Keystrokes" view-lossage]
1571 ["%_Warnings" view-warnings])
1571 ["Send %_Bug Report..." report-xemacs-bug 1572 ["Send %_Bug Report..." report-xemacs-bug
1572 :active (fboundp 'report-xemacs-bug)])) 1573 :active (fboundp 'report-xemacs-bug)]))
1573 "The default XEmacs menubar. 1574 "The default XEmacs menubar.
1574 See the documentation for `current-menubar' for details of the syntax 1575 See the documentation for `current-menubar' for details of the syntax
1575 used here.") 1576 used here.")