;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Emacs-Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;

	   (set-cursor-color "green")
	   (set-foreground-color "white")
	   (set-background-color "black")
	   (set-mouse-color "white")
	   (invert-face 'region)


(setq initial-major-mode
      (lambda ()
	(lisp-interaction-mode)
	(turn-on-auto-fill))
      
      completion-ignored-extensions (append 
				     completion-ignored-extensions
				     '(".obj"
				       ".class"
				       ".to"))
      auto-mode-alist (append
		       '(("\\.C$" . c++-mode)
			 ("\\.c$" . c-mode)
			 ("\\.h$" . c++-mode)
			 ("\\.H$" . c-mode)
			 ("\\.y$" . c-mode)
			 ("\\.cc$" . c-mode)
			 ("\\.el$" . emacs-lisp-mode)
			 ("\\.tex$" . latex-mode)
			 ("\\.texinfo$" . texinfo-mode)
			 ("\\.lsp$" . lisp-mode)
			 ("\\.scm$" . lisp-mode)
			 ("\\.pl$" . perl-mode)
			 ("\\.pm$" . perl-mode)
			 ("\\.html$" . html-helper-mode)
			 ("\\.java$" . java-mode))
		       auto-mode-alist)
	
      inhibit-startup-message t
      Info-default-directory-list '("/afs/athena/user/d/a/daveg/Elisp/Info")
      display-time-interval 10
      display-time-day-and-date t
      enable-recursive-minibuffers t
      next-line-add-newlines nil
      default-directory "~/"
      uniquify-buffer-name-style 'post-forward
      mime-editor/split-message nil
      use-emime t
      window-min-height 2
      diff-switches nil ; get rid of annoying -c
)

(put 'eval-expression 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)

(require 'uniquify)
(require 'jka-compr)
  
(menu-bar-mode -1)
(if (string= window-system "x")
    (progn (scroll-bar-mode -1)
	   (set-default-font "fixed")
	   (setq mouse-yank-at-point t)
	   (setq initial-frame-alist
		 '((top . 0) (left . -1) (width . 80) (height
						       . 54)))
	   (require 'paren)
	   (show-paren-mode)
	   (set-face-background 'show-paren-match-face "darkgreen")
	   (require 'font-lock)
	   (setq font-lock-maximum-decoration t)
	   (if (fboundp 'global-font-lock-mode)
	       (global-font-lock-mode t))
	   
	   (autoload 'turn-on-lazy-lock "lazy-lock")
	   (add-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
	   (setq lazy-lock-stealth-time 5)
	   
	   (set-face-foreground 'modeline "lightgray")
	   (set-face-background 'modeline "DarkSlateBlue")
	   (set-face-background 'highlight "DarkGreen")
	   (set-face-background 'secondary-selection
				"rgb:d2/22/32")
	   (set-face-foreground 'font-lock-comment-face
				"OrangeRed")
	   (set-face-foreground 'font-lock-string-face
				"LightSalmon")
	   (set-face-foreground 'font-lock-keyword-face
					 "LightSteelBlue")
	   (set-face-foreground 'font-lock-function-name-face
				"LightSkyBlue")
	   (set-face-foreground 'font-lock-variable-name-face
				"LightGoldenrod")
	   (set-face-foreground 'font-lock-type-face
				"PaleGreen")
	   (require 'message)
;		    (set-face-foreground 'message-header-name-face
;					 "cyan")
;		    (set-face-foreground 'message-header-other-face
;					 "turquoise")
;		    (set-face-foreground 'message-separator-face
;					 "blue2")
;		    (copy-face 'bold 'info-xref)
;		    (set-face-foreground 'info-xref "cyan")
		    ))
	 

(setq debug-on-error '(wrong-type-argument
		       wrong-number-of-arguments
		       void-variable
		       void-function
		       ;; search-failed
		       setting-constant
		       no-catch
		       ;; invalid-regexp
		       invalid-function
		       ;; file-already-exists
		       ;; file-error
		       ;; end-of-buffer
		       arith-error
		       args-out-of-range
		       ))