Mercurial > hg > xemacs-beta
diff lisp/menubar-items.el @ 2505:3e5a2d0d57e1
[xemacs-hg @ 2005-01-26 04:56:17 by ben]
The splash screen change
startup.el: Rename "splash-frame" -> "splash-screen" (its change
long ago from screen to frame happened during the general
screen->frame sub and was a mistake). Compress all info
onto one screen rather than cycling through 3 of them.
Update copyright years and some other random stuff.
menubar-items.el: Removed.
frame->screen and rewrite to fix bugginess.
Add menu items for beta and distribution info.
| author | ben |
|---|---|
| date | Wed, 26 Jan 2005 04:56:18 +0000 |
| parents | ab71ad6ff3dd |
| children | 9caf26dd924f |
line wrap: on
line diff
--- a/lisp/menubar-items.el Wed Jan 26 04:47:14 2005 +0000 +++ b/lisp/menubar-items.el Wed Jan 26 04:56:18 2005 +0000 @@ -1619,6 +1619,8 @@ ["%_Home Page (www.xemacs.org)" xemacs-www-page :active (fboundp 'browse-url)] ["What's %_New in XEmacs" view-emacs-news] + ["B%_eta Info" describe-beta + :included (string-match "beta" emacs-version)] "-----" ("%_Info (Online Docs)" ["%_Info Contents" (Info-goto-node "(dir)")] @@ -1702,6 +1704,7 @@ ("%_Other" ["%_Current Installation Info" describe-installation :active (boundp 'Installation-string)] + ["%_Obtaining the Latest Version" describe-distribution] ["%_No Warranty" describe-no-warranty] ["XEmacs %_License" describe-copying] ["Find %_Packages" finder-by-keyword] @@ -2107,27 +2110,6 @@ (setq-default mode-popup-menu default-popup-menu) -;; misc - -(defun xemacs-splash-buffer () - "Redisplay XEmacs splash screen in a buffer." - (interactive) - (let ((buffer (get-buffer-create "*Splash*")) - tmout) - (set-buffer buffer) - (setq buffer-read-only t) - (erase-buffer buffer) - (setq tmout (display-splash-frame)) - (when tmout - (make-local-hook 'kill-buffer-hook) - (add-hook 'kill-buffer-hook - `(lambda () - (disable-timeout ,tmout)) - nil t)) - (pop-to-buffer buffer) - (delete-other-windows))) - - ;;; backwards compatibility (provide 'x-menubar) (provide 'menubar-items)