;; ======================================================================
;;
;; Setup file for Talk/Emacs environment. To automatically load it,
;; put this line in your .emacs:
;;
;; (load-file (concat (getenv "ILT_DIR") "/talk/emacs/dot-emacs"))
;;
;; ======================================================================

(if (null (getenv "ILT_DIR"))
    (error "error in dot-emacs: shell variable ILT_DIR not defined"))

(setq load-path (cons (concat (getenv "ILT_DIR") "/talk/emacs") load-path))

(global-set-key "\C-C\C-s" 'ts:switch-text-server)

(autoload 'ts:switch-text-server "talk-comm" 
	  "Switch to Talk process buffer." t)

(autoload 'run-talk "talk-comm" 
	  "Start a Talk process." t)

(autoload 'talk-mode "talk-mode"
	  "Enter in Talk mode." t)

(setq auto-mode-alist (append '(("\\.t$"      . talk-mode)
				("\\.tt$"     . talk-mode) 
				("\\.td$"     . talk-mode)
				("\\.talkrc$" . talk-mode))
			      auto-mode-alist))
