;; Old customizations
(setq scroll-step 1)

;; Switch RET and LF. Makes <return> indent
(defvar tmp (global-key-binding "\C-m"))
(global-set-key "\C-m" (global-key-binding "\C-j"))
(global-set-key "\C-j" tmp)

(setq-default tab-width 4)
(setq-default indent-tabs-mode t)
(setq-default truncate-lines t)			; don't wrap
(setq-default c-basic-offset 4)
(c-set-offset 'case-label '+)  ; indent case statements

;; Paren Jumping

(defun match-paren (arg)
  (interactive "p")
  (cond
   ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
   ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
   ;((looking-at "\\s\{") (forward-list 1) (backward-char 1))
   ;((looking-at "\\s\}") (forward-char 1) (backward-list 1))
   (t (self-insert-command (or arg 1)))))

(global-set-key "\C-j" 'match-paren)