; C-s でインクリメンタルサーチ
(require "isearch")

; M-/ でバッファ内の単語を展開
(require "dabbrev") 
(global-set-key #\M-/ 'dabbrev-expand)

; C-/ で undo
(global-set-key #\C-/ 'undo)

; C-x [RET] f で文字コードの変更
(global-set-key '(#\C-x #\RET #\f) 'change-fileio-encoding)

; C-x C-w で emacs 風の処理をさせる
; バッファの名前も変更して、次回 C-x C-s で上書きすると、前回名前をつけて保存した
; ファイルに保存される
(defun emacs-write-file (filename)
(interactive "FWrite file: " :title0 "Write File")
(and (rename filename)
(save-buffer)))
(define-key ctl-x-map #\C-w 'emacs-write-file) 


; コメントアウト
(autoload 'comment-out-region "comment" t nil)
(global-set-key '(#\C-c #\q) 'comment-out-region)

; 標準の文字コードを euc-jp, 改行コードを lf に。
(set-buffer-fileio-encoding *encoding-euc-jp*)
(set-buffer-eol-code 0)