 ;; ミニバッファ内で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)
(setq default-buffer-file-coding-system '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の文字をペーストしたときに文字化けする
;;utf-8のambiguous charactersの文字幅
;;utf-translate-cjk modeを使用しているときに有効
(setq utf-translate-cjk-set-unicode-range 1)

;;;;;;;;;;;;;; Emacs 標準Lisp ;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;
;; C mode (c-mode)
;;;;;;;;
;; /usr/src/linux/Documentation/CodingStyle ;Read it.
(defun my-c-mode-common-hook ()
   (c-set-style "bsd")
   (setq indent-tabs-mode nil) ;linux
   (setq c-basic-offset 4)
   ;(c-set-style "k&r") ;k&r
   ;(c-set-style "gnu") ;default
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

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

;;; init.el --- my Emacs settings
;;; Commentary:
;;;  My Emacs settings.
;;; Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; グローバルな設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
