	; .emacs_pro             jim boland / tekcbi          11-Dec-85
	; written to allow usage of edt style emacs for vt100 
	; otherwise, the basic features of emacs are implemented
	
	 (load "time.ml")
	
	
	 (progn term
		(setq term (getenv "TERM"))
		(if (= (substr term 3 3) "100")
				(load "edt-sup")
			)
		(if (= (substr term 3 3) "100")
				(send-string-to-terminal "\033=")
			)
	 )
	
	; take care of problems with sytek
	  (bind-to-key "novalue" "\021")
	  (bind-to-key "novalue" "\023")
	  (bind-to-key "quote-character" "\014")
	
	; enlarge, shrink window
	
	  (bind-to-key "enlarge-window" "\^W>")
	  (bind-to-key "shrink-window" "\^W<")

	(defun
	   (rot13 odot
		  (setq odot (dot))
		  (message "Rotating buffer")
		  (sit-for 0)
		  (beginning-of-file)
		  (set-mark)
		  (end-of-file)
		  (rot13-region)
		  (goto-character odot))
	   (rot13-region
		  (filter-region "tr A-Za-z N-ZA-Mn-za-m")
		  (message "done"))
	)
	(bind-to-key "rot13-region" "OP")
	(bind-to-key "rot13-region" "OP")
	
	; unbind some problems
	
	  (bind-to-key "illegal-operation" "\^Xm")
	  (set "checkpoint-frequency" 32000)
	  (setq-default changed-buffer 0)
	
	
