cgit.sxemacs.org Git - packages/blob - xemacs-packages/Sun/sun-eos-init.el

   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