init.el
バックアップ的な意味で残しておきます。
(setq tab-width 4) (setq default-tab-width 4) (setq tab-stop-list '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120)) (require 'color-theme) (color-theme-initialize) (color-theme-dark-laptop) (let ((default-directory (expand-file-name "~/.emacs.d/lisp"))) (add-to-list 'load-path default-directory) (if (fboundp 'normal-top-level-add-subdirs-to-load-path) (normal-top-level-add-subdirs-to-load-path))) (require 'auto-install) (setq auto-install-directory "~/.emacs.d/auto-install/") (auto-install-update-emacswiki-package-name t) (add-to-list 'load-path "~/.emacs.d/auto-install") (setq frame-title-format (format "%%f - Emacs@%s" (system-name))) (setq make-backup-files nil) (global-linum-mode) (setq inhibit-startup-screen t) (tool-bar-mode 0) (setq show-paren-delay 0) (show-paren-mode t) (setq show-parent-sytle 'expression) (set-face-background 'show-paren-match-face "#800") (set-language-environment "Japanese") (prefer-coding-system 'utf-8-unix) (set-default-coding-systems 'utf-8-unix) (setq file-name-coding-system 'sjis) (setq locale-coding-system 'utf-8) (when (eq window-system 'w32) (set-face-attribute 'default nil :family "DejaVu Sans Mono"; :height 100) (set-fontset-font nil 'japanese-jisx0208 (font-spec :family "Meiryo"))) (require 'anything-config) (when (require 'auto-complete-config nil t) (add-to-list 'ac-dictionary-directories "~/.emacs.d/auto-install/") (define-key ac-mode-map (kbd "M-TAB") 'auto-complete) (ac-config-default))