Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 2505:3e5a2d0d57e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
2504:e17beacca645 2505:3e5a2d0d57e1
1617 ("%_Help" 1617 ("%_Help"
1618 ["%_About XEmacs..." about-xemacs] 1618 ["%_About XEmacs..." about-xemacs]
1619 ["%_Home Page (www.xemacs.org)" xemacs-www-page 1619 ["%_Home Page (www.xemacs.org)" xemacs-www-page
1620 :active (fboundp 'browse-url)] 1620 :active (fboundp 'browse-url)]
1621 ["What's %_New in XEmacs" view-emacs-news] 1621 ["What's %_New in XEmacs" view-emacs-news]
1622 ["B%_eta Info" describe-beta
1623 :included (string-match "beta" emacs-version)]
1622 "-----" 1624 "-----"
1623 ("%_Info (Online Docs)" 1625 ("%_Info (Online Docs)"
1624 ["%_Info Contents" (Info-goto-node "(dir)")] 1626 ["%_Info Contents" (Info-goto-node "(dir)")]
1625 "-----" 1627 "-----"
1626 ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")] 1628 ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")]
1700 ["Show \"%_hello\" in Many Languages" view-hello-file] 1702 ["Show \"%_hello\" in Many Languages" view-hello-file]
1701 ))) 1703 )))
1702 ("%_Other" 1704 ("%_Other"
1703 ["%_Current Installation Info" describe-installation 1705 ["%_Current Installation Info" describe-installation
1704 :active (boundp 'Installation-string)] 1706 :active (boundp 'Installation-string)]
1707 ["%_Obtaining the Latest Version" describe-distribution]
1705 ["%_No Warranty" describe-no-warranty] 1708 ["%_No Warranty" describe-no-warranty]
1706 ["XEmacs %_License" describe-copying] 1709 ["XEmacs %_License" describe-copying]
1707 ["Find %_Packages" finder-by-keyword] 1710 ["Find %_Packages" finder-by-keyword]
1708 ["View %_Splash Screen" xemacs-splash-buffer] 1711 ["View %_Splash Screen" xemacs-splash-buffer]
1709 ["%_Unix Manual..." manual-entry]) 1712 ["%_Unix Manual..." manual-entry])
2105 ;; In an effort to avoid massive menu clutter, this mostly worthless menu is 2108 ;; In an effort to avoid massive menu clutter, this mostly worthless menu is
2106 ;; superseded by any local popup menu... 2109 ;; superseded by any local popup menu...
2107 (setq-default mode-popup-menu default-popup-menu) 2110 (setq-default mode-popup-menu default-popup-menu)
2108 2111
2109 2112
2110 ;; misc
2111
2112 (defun xemacs-splash-buffer ()
2113 "Redisplay XEmacs splash screen in a buffer."
2114 (interactive)
2115 (let ((buffer (get-buffer-create "*Splash*"))
2116 tmout)
2117 (set-buffer buffer)
2118 (setq buffer-read-only t)
2119 (erase-buffer buffer)
2120 (setq tmout (display-splash-frame))
2121 (when tmout
2122 (make-local-hook 'kill-buffer-hook)
2123 (add-hook 'kill-buffer-hook
2124 `(lambda ()
2125 (disable-timeout ,tmout))
2126 nil t))
2127 (pop-to-buffer buffer)
2128 (delete-other-windows)))
2129
2130
2131 ;;; backwards compatibility 2113 ;;; backwards compatibility
2132 (provide 'x-menubar) 2114 (provide 'x-menubar)
2133 (provide 'menubar-items) 2115 (provide 'menubar-items)
2134 2116
2135 ;;; menubar-items.el ends here. 2117 ;;; menubar-items.el ends here.