 ;; ミニバッファ内でC-wで単語削除です。上位パスのファイルを選択する際に便利です。
 (define-key minibuffer-local-completion-map "\C-w" 'backward-kill-word)
 ;; xclip.elの代替
-;; C-w, M-wでX Window Systemのclipboardセレクションにコピーする
-;; coding-system-for-writeでUTF-8でのコピーを強制する
 ;; Ref: http://garin.jp/doc/unix/xwindow_clipboard
-(defun my-cut-function (text &optional rest)
+(defun my-cut-function (text)
+  "Copy TEXT to clipboard selection of X Window System.
+TEXT should be UTF-8"
   (interactive)
   (let ((process-connection-type nil)
         (coding-system-for-write 'utf-8))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; グローバルな設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(set-language-environment "English")
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8-unix)
(setq locale-coding-system 'utf-8)
(setq file-name-coding-system 'utf-8)
;;(set-clipboard-coding-system 'utf-8)これを設定するとUTF-8の文字をペーストしたときに文字化けする

;;;;;;;;;;;;;; Emacs 標準Lisp ;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;
;; all CC Mode modes
;;;;;;;;
(add-hook 'c-mode-common-hook (lambda ()
   (c-set-style "bsd")
   (setq c-basic-offset 4)
   (setq indent-tabs-mode nil)))

;;;;;;;;
;; C++ mode (c++-mode)
