(setq scheme-program-name "/usr/local/unmscheme/unmscheme")

(setq auto-mode-alist
        (cons '("\\.stk$" . scheme-mode)
                auto-mode-alist))

(setq default-major-mode 'scheme-mode)

(put 'eval-expression 'disabled nil)

(require 'font-lock)

(global-font-lock-mode t)

(show-paren-mode 1)

(put 'upcase-region 'disabled nil)