     nil))
 
 (add-hook 'java-mode-hook 'my-java-hook)
-	  
-
-
-
-
-(setq auto-mode-alist
-      (append '(("\\.sml$" . sml-mode)
-		("\\.sig$" . sml-mode)
-		("\\.ML$"  . sml-mode)) auto-mode-alist))
 
 (defun frame-settings (f)
   (progn
     (if (null f) () (select-frame f))
     (menu-bar-mode -1)
-    (tool-bar-mode -1)
+    (if window-system (tool-bar-mode -1))
     (blink-cursor-mode -1)
     (set-background-color "grey15")
     (set-foreground-color "grey80")

 '(font-lock-comment-face ((((class color) (background dark)) (:foreground "#11AABB"))))
 '(font-lock-doc-face ((t (:foreground "#CCBB99"))))
 '(font-lock-string-face ((((class color) (background dark)) (:foreground "#119911")))))

;;(autoload 'tuareg-mode "tuareg" "Major mode for editing Caml code" t)
;;(autoload 'camldebug "camldebug" "Run the Caml debugger" t)

;; The Fortress programming language. RIP.
;;
;; Turn on Fortress mode
;;(load (concat (getenv "FORTRESS_HOME")
;;	      "/Emacs/fortress-mode.el"))
;;(push '("\\.fs[si]$" . fortress-mode) auto-mode-alist)
;; Turn on Fortify
;;(load (concat (getenv "FORTRESS_HOME")
;;	      "/Fortify/fortify.el"))

;; SML programming language.
;;
;; Turn on SML mode
;;(add-to-list 'load-path "I:\\")
;;(autoload 'sml-mode "sml-mode" "Major mode for editing Standard ML" t)
;;(autoload 'htmlize "htmlize" "This will HTMLize your shit." t)
;;(setq auto-mode-alist
;;      (append '(("\\.sml$" . sml-mode)
;;		("\\.sig$" . sml-mode)
;;		("\\.ML$"  . sml-mode)) auto-mode-alist))

;;(setq-default ispell-program-name "aspell")

;;Advice, probably stolen from the emacs extensions book.
(defadvice switch-to-buffer (before existing-buffer  			
