emacs setting

.emacs.el

;;; set Language Japanese
(set-language-environment 'Japanese)
;;; use utf-8
(prefer-coding-system 'utf-8)


;;; set Locale environment setting
(set-locale-environment nil)

;;; Key-Bind
(define-key global-map (kbd "C-h") 'delete-backward-char)   ; delete
(define-key global-map (kbd "M-?") 'help-for-help)          ; help
(define-key global-map (kbd "C-z") 'undo)                   ; undo
(define-key global-map (kbd "C-c i") 'indent-region)        ; indent
(define-key global-map (kbd "C-c C-i") 'hippie-expand)      ; complement
(define-key global-map (kbd "C-c ;") 'comment-dvim)         ; commnet out
(define-key global-map (kbd "C-o") 'toggle-input-method)    ; change Japanese input-method
(define-key global-map (kbd "M-C-g") 'grep)               ; grep
(define-key global-map (kbd "C-[ M-C-g") 'goto-line)      ; 指定行へ移動

;;; recursively
(require 'grep)
(setq grep-command-before-query "grep -nH -r -e ")
(defun grep-default-command ()
    (if current-prefix-arg
            (let ((grep-command-before-target
                     (concat grep-command-before-query
                          (shell-quote-argument (grep-tag-default)))))
                (cons (if buffer-file-name
                            (concat grep-command-before-target
                                  " *."
                                (file-name-extension buffer-file-name))
                        (concat grep-command-before-target " ."))
                      (+ (length grep-command-before-target) 1)))
                (car grep-command)))
(setq grep-command (cons (concat grep-command-before-query " .")
                        (+ (length grep-command-before-query) 1)))


;;; remove tool bar
(blink-cursor-mode 0)
;;; remove menu bar
(tool-bar-mode -1)

;;; stop cursor's flashing
(blink-cursor-mode 0)

;;; display all results of eval
(setq eval-expression-print-length nil)

;;; lighten paren
(show-paren-mode 1)
;;; lighten paren only in window
(setq show-paren-style 'mixed)


;;; display blank on end of line
(setq-default show-trailing-whitespace t)


;;; emphasis curent line
(global-hl-line-mode)
;;; display the number of cursor charcater position
(column-number-mode t)
;;; display the number of cursor line position
(line-number-mode t)
;;; save cursor's location
(require 'saveplace)
(setq-default save-place t)


;;; remove whole line by putting C-k
(setq kill-whole-line t)
;;; insert newline on end of file
(setq require-final-newline t)
;;; ban on addition of newline on end of line
(setq next-line-add-newlies nil)



;;; don't make backup files
(setq backup-inhibited t)
;;; delete auto-save-file on finishing
(setq delete-auto-save-files t)


;;; ignore case on completion
(setq completion-ignore-case t)
(setq read-file-name-completion-ignore-case t)


;;; partial completion
(partial-completion-mode t)


;;; display completionable words each time
(icomplete-mode 1)


;;; increase the number of history
(setq history-length 10000)
;;; save mini-buffer history
(savehist-mode 1)
;;; increase the number of saved files that is opened recently


;;; enable editting gz file
(auto-compression-mode t)


;;; execute ediff on one window
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
;;; diff options
(setq diff-switches '("-u" "-p" "-N"))



;;; use useful dired
(require 'dired-x)
;;; inline-edit of filename by putting 'r'
(require 'wdired)
(define-key dired-mode-map "r" 'wdired-change-to^wdired-mode)


;;; add directory name if duplicated filename exists
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)