.emacs

   1 (load-library "zenburn")
   2 (zenburn)
   3
   4 ;; Disable auto-save for all file buffers
   5 (setq auto-save-default nil)
   6
   7 (global-set-key "\C-m" 'newline-and-indent)
   8 (global-font-lock-mode t)
   9
  10 ;; These are otherwise bound to C-Up and C-Down. To heck with that
  11 ;; nonsense, M-n and M-p are unused and analogous to C-f, C-b and M-f,
  12 ;; M-b respectively.
  13 (global-set-key "\M-p" 'backward-paragraph)
  14 (global-set-key "\M-n" 'forward-paragraph)
  15
  16 ;; Gentoo *or somebody* made the default too small.
  17 ;; Make it too big to overcompensate.
  18 (set-default-font "DejaVu Sans Mono-14")
  19
  20 ;; Set the frame title to the name of the buffer, if supported.
  21 (setq frame-title-format "%b")
  22
  23 ;; Currently needed to make Emacs 23 behave sanely.
  24 '(diff-jump-to-old-file t)
  25
  26 ;; Disable the menu/tool bars when we're using X.
  27 (menu-bar-mode -1)
  28 (when window-system
  29   (tool-bar-mode -1))
  30
  31 ;; And put the damned scroll bar on the correct side.
  32 (when window-system
  33   (set-scroll-bar-mode 'right))
  34
  35 ;; The most important statement in this file.
  36 ;; Do not display a splash screen on startup.
  37 (setq inhibit-splash-screen t)
  38
  39 ;; Mode Line
  40 (setq line-number-mode t)
  41 (setq column-number-mode t)
  42 (display-time)
  43
  44
  45 ;; Don't force a newline at the end of every file.
  46 ;; Doing so can screw up HTML, where a newline is more
  47 ;; or less equivalent to a space.
  48 (setq require-final-newline nil)
  49
  50
  51 ;; Unicode
  52 ;; (set-language-environment "UTF-8")
  53 (prefer-coding-system 'utf-8-unix)
  54 (set-terminal-coding-system 'utf-8-unix)
  55 (set-keyboard-coding-system 'utf-8-unix)
  56
  57 (setq inhibit-iso-escape-detection t)
  58
  59 ;; Don't leave backups everywhere.
  60 (setq backup-inhibited t)
  61
  62 ;; Add this to load-path manually, then add the rest in load-paths.el
  63 (add-to-list 'load-path "~/.home/emacs/")
  64 (load-library "load-paths")
  65
  66 (if (eq system-type 'cygwin)
  67     (load-library "win32"))
  68
  69
  70 ;; Need this for ignore-errors, and some modes.
  71 (require 'cl)
  72
  73 (load-library "auto-modes")
  74 (load-library "mode-hooks")
  75 (load-library "autoloads")
  76
  77
  78 ;; Open private IRC messages in a new buffer.
  79 (setq erc-auto-query 'buffer)
  80
  81 ;; Never ask me anything, emacs.
  82 (setq save-abbrevs nil)
  83
  84
  85 (load-library "diff-buffer-against-file")
  86 (global-set-key "\C-cd" 'diff-buffer-against-file)
  87
  88 (load-library "fix-nonstandard-chars")
  89
  90
  91 ;; Enable dired-find-alternate-file without having to stop
  92 ;; and explain myself to Emacs.
  93 (put 'dired-find-alternate-file 'disabled nil)
  94
  95
  96 ;; These next functions override the defaults provided by emacs. They
  97 ;; prevent warning messages related to file modification times,
  98 ;; particularly on weird filesystems.
  99
 100 ;;(defun ask-user-about-supersession-threat (fn)
 101 ;;  )
 102
 103 ;;(defun verify-visited-file-modtime (bf)
 104 ;;  t
 105 ;;  )