;;  Some gnuserv hooks -- the first thing it does is to
;;  make sure the size of the new gnuserv window is nice.
(add-hook 'gnuserv-visit-hook
          (function (lambda()
                      (set-frame-width (selected-frame) 90)
                      (set-frame-height (selected-frame) 27)
                      (cond ((string-match "Post" mode-name)
                             (post-goto-body)
)))))


;(add-hook 'ilisp-site-hook
;          (function
;           (lambda ()
;             (setq ilisp-init-binary-extension "sparcf")
;             (setq ilisp-init-binary-command "(progn \"sparcf\")")
;             ;; (setq ilisp-binary-extension "sparcf")
;             )))


;;; Sample ilisp load hook.  I like it
(add-hook 'ilisp-load-hook 
          (function
           (lambda ()
             ;; Change default key prefix to C-c
             (setq ilisp-prefix "\C-c")
             (defkey-ilisp "\t" 'my-tab)
             ;;             (define-key ilisp-mode-map "tab" 'my-tab)
             ;; Make sure that you don't keep popping up the 'inferior
             ;; lisp' buffer window when this is already visible in
             ;; another frame. Actually this variable has more impact
             ;; than that. Watch out.
             ;(setq pop-up-frames t)

             (message "Running ilisp-load-hook")
             ;; Define LispMachine-like key bindings, too.
             ;; (ilisp-lispm-bindings) Sample initialization hook.

             ;; Set the inferior LISP directory to the directory of
             ;; the buffer that spawned it on the first prompt.
             (add-hook 'ilisp-init-hook
                       (function
                        (lambda ()
                          (default-directory-lisp ilisp-last-buffer))))
             )))

;; If xemacs is called without arguments, then open it