;; Disable auto-save for all file buffers
(setq auto-save-default nil)

(global-set-key "\C-m" 'newline-and-indent)
(global-font-lock-mode t)

;; These are otherwise bound to C-Up and C-Down. To heck with that
;; nonsense, M-n and M-p are unused and analogous to C-f, C-b and M-f,
;; M-b respectively.
(global-set-key "\M-p" 'backward-paragraph)
(global-set-key "\M-n" 'forward-paragraph)

;; Gentoo *or somebody* made the default too small.
;; Make it too big to overcompensate.
(set-frame-font "DejaVu Sans Mono-14")

;; Set the frame title to the name of the buffer, if supported.
(setq frame-title-format "%b")

;; Disable the menu/tool bars when we're using X.
(menu-bar-mode -1)
(when window-system
  (tool-bar-mode -1))

;; And put the damned scroll bar on the correct side.
(when window-system
  (set-scroll-bar-mode 'right))

;; The most important statement in this file.
;; Do not display a splash screen on startup.
(setq inhibit-splash-screen t)

;; Mode Line
(setq line-number-mode t)
(setq column-number-mode t)
(display-time)


;; Don't force a newline at the end of every file.
;; Doing so can screw up HTML, where a newline is more
;; or less equivalent to a space.
(setq require-final-newline nil)


;; Unicode
;; (set-language-environment "UTF-8")
(prefer-coding-system 'utf-8-unix)
(set-terminal-coding-system 'utf-8-unix)
(set-keyboard-coding-system 'utf-8-unix)

(setq inhibit-iso-escape-detection t)

;; Don't leave backups everywhere.
(setq backup-inhibited t)

;; Don't let the file's contents modify my editor, because that needs
;; to be said? More importantly, don't interrupt me to ask me if I
;; want to process the variables that emacs KNOWS are unsafe.
(setq enable-local-variables nil)

;; Add the directory containing .emacs to the load-path.
(add-to-list 'load-path (file-name-directory (file-truename user-init-file)))

;; Need this for ignore-errors, and some modes.
(require 'cl)

(load-library "auto-modes")
(load-library "mode-hooks")


;; Open private IRC messages in a new buffer.
(setq erc-auto-query 'buffer)

;; Never ask me anything, emacs.
(setq save-abbrevs nil)

(load-library "diff-buffer-against-file")
(global-set-key "\C-cd" 'diff-buffer-against-file)

(load-library "fix-nonstandard-chars")
(load-library "latex-query-replace-regexp-math")


;; Enable dired-find-alternate-file without having to stop
;; and explain myself to Emacs.
(put 'dired-find-alternate-file 'disabled nil)


;; Enable the downcase-region function.
(put 'downcase-region 'disabled nil)

;; I want to see trailing whitespace.
(setq-default show-trailing-whitespace t)

;; Don't ignore .git directories when tab-completing filenames, for
;; two reasons. First, it's nice to be able to tell that a directory
;; is a git repository from the output of "ls", and giving them a .git
;; suffix is an easy way to do that. Second, editing .git/config is
;; the easiest way to do a lot of things in git.
(setq completion-ignored-extensions
      (remove ".git/" completion-ignored-extensions))