(progn  
  (setq scheme-program-name "scheme")

  (setq inferior-lisp-program "/usr/bin/clisp -q ") ;; or wherever you put SLIME 
  (add-to-list 'load-path "/usr/share/common-lisp/source/slime/") ;; this path is WVU CSEE specific 
  (setq slime-path "/usr/share/common-lisp/source/slime/") ;; this path is WVU CSEE specific 
  (require 'slime) 
  (slime-setup) 
  (global-set-key "\C-cs" 'slime-selector) 

  (setq backup-directory-alist nil) 
  (setq backup-directory-alist ; get the backups out of the working directories 
	(cons (cons "\\.*$" (expand-file-name "~/opt/tmp/backup")) backup-directory-alist)) 
  (setq inhibit-startup-message t)	; why isn?t this the default? 
  (setq scroll-step 1)			; don?t scroll in large jumps 
  (setq require-final-newline t) ; every file has at least one new line 
  (global-font-lock-mode t 1)		; enable syntax highlighting 
  (line-number-mode t)	  ; show line numbers and time in status line 
  (setq display-time-24hr-format nil) ; show line numbers and time in status line 
  (display-time) 
  (xterm-mouse-mode t)			; let the mouse work 
  (menu-bar-mode nil)                 ; remove that space wasting bar 
  (show-paren-mode t)			; match brackets 
  (transient-mark-mode t)		; show search 

  (setq load-path (cons "/home/timm/opt/iccle/etc/color-theme/color-theme-6.6.0" load-path))
  (require 'color-theme) 
  (color-theme-initialize) 
	

  (color-theme-hober) 		; default color theme 
  )

(defun nope ()
  (interactive)
  (slime-highlight-edits-mode)) 

(slime)