emacs.elの設定を修正したので晒しておきますね。
- 全角、半角の可視化。
- サイトを参考にしたのだけど失念してしました。ごめんなさい。
- バックアップファイルのディレクトリ作成。
- フルコピーのため改善点あり...。
Emacsのお勧め設定あったら教えて下さい!それか晒して下さい!!
(setq inferior-lisp-program "clisp") (setq load-path (append (list (expand-file-name "~/.emacs.d/site-lisp/")) load-path)) (require 'auto-complete) (global-auto-complete-mode t) (transient-mark-mode 1) (line-number-mode t) (setq-default tab-width 2) (setq tab-width 2) (setq-default tab-stop-list '(0 1 2 3 4 6 8 12 16 20)) (setq-default indent-tabs-mode nil) ;;~file go to backup-dir (setq backup-dir "~/.emacs.d/backup/") (setq backup-by-copying t) (fset 'make-backup-file-name '(lambda (file) (concat (expand-file-name backup-dir) (file-name-nondirectory file)) )) ;; Show tab, zenkaku-space, white spaces at end of line ;; http://www.bookshelf.jp/soft/meadow_26.html#SEC317 (defface my-face-tab '((t (:background "Yellow"))) nil :group 'my-faces) (defface my-face-zenkaku-spc '((t (:background "LightBlue"))) nil :group 'my-faces) (defface my-face-spc-at-eol '((t (:foreground "Red" :underline t))) nil :group 'my-faces) (defvar my-face-tab 'my-face-tab) (defvar my-face-zenkaku-spc 'my-face-zenkaku-spc) (defvar my-face-spc-at-eol 'my-face-spc-at-eol) (defadvice font-lock-mode (before my-font-lock-mode ()) (font-lock-add-keywords major-mode '(("\t" 0 my-face-tab append) (" " 0 my-face-zenkaku-spc append) ("[ \t]+$" 0 my-face-spc-at-eol append) ))) (ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode) (ad-activate 'font-lock-mode) ;; settings for text file (add-hook 'text-mode-hook '(lambda () (progn (font-lock-mode t) (font-lock-fontify-buffer))))