(set-language-environment "latin-1")
(standard-display-european t)

(column-number-mode t)
(line-number-mode t)

(global-font-lock-mode t)
(require 'paren)
(show-paren-mode t)

(delete-selection-mode t)

(menu-bar-mode nil)

(defun just-no-space ()
  "Deletes every whitespaces around point, leaving no blanks at
all. (I just didn't bothered copying the hungry-mode stuffs so this
may not be exactly the same thing but it does what I want it to do)"
  (interactive)
  (save-excursion
    (if (not (null (re-search-backward "[^ \t\r\n]" nil t)))
        (goto-char (1+ (point))))
    (re-search-forward "[ \t\r\n]*")
    (delete-region (match-beginning 0) (match-end 0))))

(global-set-key [?\C-z] 'backward-delete-char-untabify)
(global-set-key [?\M-z] 'backward-kill-word)
(global-set-key [?\M-o] 'zap-to-char)

(global-set-key [f6] 'compile)

(global-set-key [f5] 'gud-cont)

(global-set-key [f7] 'gud-next)
(global-set-key [f8] 'gud-step)
(global-set-key [f11] 'gud-finish)

(global-set-key [f9] 'gud-break)
(global-set-key [?\C-c f9] 'gud-tbreak)
(global-set-key [f10] 'gud-remove)

(setq visible-bell t)

(setq c-default-style "k&r")
(setq c-block-comment-prefix "")
(setq c-basic-offset 8)
(setq tab-width 8)
;;(setq-default indent-tabs-mode nil)
(add-hook 'c-mode-hook
          (function (lambda () (setq font-lock-maximum-decoration 1)
                      (c-toggle-hungry-state)
                      (define-key c-mode-map [?\C-z] 'c-electric-backspace))))