(custom-set-variables

  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!

  ;; Your init file should contain only one such instance.

 '(case-fold-search t)

 '(current-language-environment "Latin-1")

 '(default-input-method "latin-1-prefix")

 '(global-font-lock-mode t nil (font-lock))

 '(show-paren-mode t nil (paren)))

  (global-set-key "\r" 'newline-and-indent) 



(set-background-color "black")

(set-foreground-color "white")

(set-cursor-color "blue")





(add-hook 'c-mode-common-hook

  '(lambda ()

     (c-set-style "bsd")

     (setq c-basic-offset 4)))






;; .emacs-file used for the package `emacs-snapshot-gtk' in Ubuntu Dapper ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(case-fold-search t)
 '(column-number-mode t)
 '(current-language-environment "UTF-8")
 '(global-font-lock-mode t nil (font-lock))
 '(indent-tabs-mode nil)
 '(line-number-mode t)
 '(menu-bar-mode nil)
 '(mouse-wheel-follow-mouse t)
 '(mouse-wheel-mode t)
 '(scroll-bar-mode nil)
 '(show-paren-mode t)
 '(tool-bar-mode nil nil (tool-bar))
 '(transient-mark-mode t)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))
 '(visible-bell t))



(set-face-font 'default "-bitstream-bitstream vera sans mono-medium-r-normal--10-*-*-*-m-*-iso8859-*")



;; Global keys ;;
;;;;;;;;;;;;;;;;;

(global-set-key [C-tab] 'other-window)
(global-set-key "\r" 'newline-and-indent)

(global-set-key [f2] 'save-some-buffers)
(global-set-key [f3] 'find-file)
(global-set-key [f4] 'replace-string)

(global-set-key [f10] 'kill-this-buffer)



;; C STUFF ;;
;;;;;;;;;;;;;

(add-hook 'c-mode-hook
          (function (lambda () 
                      (define-key c-mode-map [f5] 'compile)
                      (define-key c-mode-map [f6] 'next-error)
                      (define-key c-mode-map [f7] 'previous-error))))



;; LISP STUFF ;;
;;;;;;;;;;;;;;;;

(add-to-list 'load-path "~/slime")
(setq inferior-lisp-program "/home/erider/programming/sbcl/lib/sbcl/sbcl")
(require 'slime)
(slime-setup :autodoc t)

(setq slime-net-coding-system 'utf-8-unix)
;(setq common-lisp-hyperspec-root "")

(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))

(setq auto-mode-alist
      (append '(("\.lisp$" . lisp-mode)
		("\.lsp$" . lisp-mode)
		("\.cl$" . lisp-mode)
		("\.asd$" . lisp-mode)
		("\.system$" . lisp-mode)) auto-mode-alist))

(define-key slime-mode-map (kbd "TAB") 'slime-indent-and-complete-symbol)
(define-key slime-mode-map [f1] 'slime-hyperspec-lookup)
(define-key slime-repl-mode-map [f1] 'slime-hyperspec-lookup)
(define-key slime-mode-map [f8] 'slime-eval-buffer)
(define-key slime-mode-map [f9] 'slime-eval-last-expression-display-output)
;(define-key slime-mode-map [f11] (lambda () (interactive) (insert "(")))
;(define-key slime-mode-map [f12] (lambda () (interactive) (insert ")")))
(define-key slime-mode-map [C-return] 'slime-close-all-sexp)




(custom-set-faces

  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!

  ;; Your init file should contain only one such instance.

 )