(tool-bar-mode nil)
(menu-bar-mode nil)
;; 3/20/2000 by mg - I want it coloured!!
;;    (setq-default 
  (transient-mark-mode t)
;;    (setq-default 
  (global-font-lock-mode t)
;; 3/11/2001 by mgr
  (column-number-mode t)

;; 9/4/2004 by mgr
(toggle-text-mode-auto-fill)

;; 20050713 by mgr
;; 00:19 < gilberth> For ages I have this in my .emacs:
;; Bruno says: "Tabs are anachronistic."
(setq-default indent-tabs-mode nil)


(setq inferior-lisp-program "sbcl")

(add-to-list 'load-path "/usr/src/lisp/slime")
(require 'slime)
(slime-setup)

(global-set-key "\C-cd" 'slime-selector)

(def-slime-selector-method ?n
  "Start new Clim-Listener process"
  (slime-repl-send-string ;"(clim-listener::run-listener :new-process t)")
   "(let ((*debugger-hook* #'clim-debugger:debugger))
   (clim-listener:run-listener :new-process t))")

  (current-buffer))

(setq common-lisp-hyperspec-root "file:///home/mgr/doc/HyperSpec/")

;; (defun linux-c-mode ()
;;   "C mode with adjusted defaults for use with the Linux kernel."
;;   (interactive)
;;   (c-mode)
;;   (setq c-indent-level 8)
;;   (setq c-brace-imaginary-offset 0)
;;   (setq c-brace-offset -8)
;;   (setq c-argdecl-indent 8)
;;   (setq c-label-offset -8)
;;   (setq c-continued-statement-offset 8)
;;   (setq indent-tabs-mode nil)
;;   (setq tab-width 8))

(defun linux-c-mode ()
  "C mode with adjusted defaults for use with the Linux kernel."
  (interactive)
  (c-mode)
  (c-set-style "K&R")
  (setq c-basic-offset 8))
(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.
 '(slime-multiprocessing t))
(custom-set-faces
  ;; custom-set-faces 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.
 '(custom-comment-face ((((class grayscale color) (background dark)) (:background "bright gray"))))
 '(font-latex-sedate-face ((((class color) (background light)) (:weight unspecified))))
 '(font-lock-builtin-face ((((type tty) (class color)) (:foreground "cyan" :weight light))))
 '(font-lock-comment-face ((t (:foreground "light grey"))))
 '(slime-inspector-value-face ((t (:inherit font-lock-builtin-face)))))

;; ispell, 20050525
(push '("odeutsch8" "[a-zA-ZÄÖÜäößü]" "[^a-zA-ZÄÖÜäößü]" "[']" t ("-C" "-d" "odeutsch")) ispell-dictionary-alist)