Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children d7a9135ec789
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
119 " ") 119 " ")
120 ""))) 120 "")))
121 (t ""))) 121 (t "")))
122 122
123 (defconst default-menubar 123 (defconst default-menubar
124 (purecopy-menubar 124 ; (purecopy-menubar ;purespace is dead
125 ;; note backquote. 125 ;; note backquote.
126 `( 126 `(
127 ("%_File" 127 ("%_File"
128 ["%_Open..." find-file] 128 ["%_Open..." find-file]
129 ["Open in Other %_Window..." find-file-other-window] 129 ["Open in Other %_Window..." find-file-other-window]
1451 ["XEmacs %_License" describe-copying] 1451 ["XEmacs %_License" describe-copying]
1452 ["Find %_Packages" finder-by-keyword] 1452 ["Find %_Packages" finder-by-keyword]
1453 ["View %_Splash Screen" xemacs-splash-buffer] 1453 ["View %_Splash Screen" xemacs-splash-buffer]
1454 ["%_Unix Manual..." manual-entry]) 1454 ["%_Unix Manual..." manual-entry])
1455 ["Send %_Bug Report..." report-emacs-bug 1455 ["Send %_Bug Report..." report-emacs-bug
1456 :active (fboundp 'report-emacs-bug)])))) 1456 :active (fboundp 'report-emacs-bug)])))
1457 1457
1458 1458
1459 (defun maybe-add-init-button () 1459 (defun maybe-add-init-button ()
1460 "Don't call this. 1460 "Don't call this.
1461 Adds `Load .emacs' button to menubar when starting up with -q." 1461 Adds `Load .emacs' button to menubar when starting up with -q."