;; If crazy delete key mapping
;(global-set-key "\C-h" 'backward-delete-char)

; I'm a european
(standard-display-european t)
(set-input-mode (car (current-input-mode))
	       (nth 1 (current-input-mode))
	       0)

;;;Considerd a Good Thing (tm)
;; eval-expression is permitted and loaded at
;; start.
(put 'eval-expression 'disabled nil)


;;; Humm, TokKOM??
(defvar kom-server-aliases
  '(("kom.stacken.kth.se". "TokKOM")
    ("kom.lysator.liu.se" . "LysKOM")))


;;; Guile installation
(defun my-scheme-mode-hook ()
  (turn-on-font-lock))

(add-hook 'scheme-mode-hook 'my-scheme-mode-hook)
(load "cmuscheme")
(load "run-guile")
(define-key global-map [f1] 'run-guile)

;;; gEDA script files
(setq auto-mode-alist (cons '("gschemrc" . scheme-mode)  auto-mode-alist))

;;; Common C-mode hooks
(defun my-c-mode-hook ()
  (turn-on-font-lock))

(add-hook 'c-mode-hook 'my-c-mode-hook)
;;; gEDA indent style (stolen from linux/Documentation/CodingStyle)
;; -*- geda-c -*- somewhere on the first two lines
(defun geda-c-mode ()
  "C mode with adjusted defaults according to Ales."
  (interactive)
  (c-mode)
  (c-set-style "K&R")
  (setq c-basic-offset 8)
  (font-lock-mode 1))
