|
0
|
1 ;;; sun-eos-init.el --- Initializes the XEmacs/SPARCworks interface
|
|
|
2
|
|
|
3 ;; Copyright (C) 1996 Sun Microsystems, Inc.
|
|
|
4
|
|
|
5 ;; Maintainer: Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
|
|
|
6 ;; Author: Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
|
|
|
7
|
|
|
8 ;; Keywords: SPARCworks EOS Era on SPARCworks initialize
|
|
|
9
|
|
|
10 ;;; Commentary:
|
|
|
11
|
|
|
12 ;; Initialize EOS
|
|
|
13 ;; Please send feedback to eduardo.pelegri-llopart@eng.sun.com
|
|
|
14
|
|
|
15 ;;; Code:
|
|
|
16
|
|
|
17 ;; This stuff needs to be done at startup time
|
|
|
18 (defun eos::start ()
|
|
|
19 "Initialization needed at start-up time. Should be done by automatic
|
|
|
20 loading of eos"
|
|
|
21 (if (not (and (string-match "XEmacs" emacs-version)
|
|
|
22 (emacs-version>= 19 12)))
|
|
|
23 (error "Eos version %s only runs on XEmacs 19.12 and later"
|
|
|
24 eos::version))
|
|
|
25 (if (not noninteractive)
|
|
|
26 (progn
|
|
|
27 (eos::common-startup)
|
|
|
28 (eos::editor-startup)
|
|
|
29 (eos::debugger-startup)
|
|
|
30 (eos::debugger-extra-startup)
|
|
|
31 (eos::browser-startup)
|
|
|
32 (eos::menubar-startup))))
|
|
|
33
|
|
|
34 ;(add-hook 'before-init-hook 'eos::start t) ; append to the end of hook list
|
|
|
35
|
|
|
36 (provide 'eos-init)
|
|
|
37
|
|
|
38 ;;; sun-eos-init.el ends here
|
