.emacs
;; 文字コード設定
(set-language-environment 'Japanese)
(set-keyboard-coding-system 'euc-jp)
(set-terminal-coding-system 'euc-jp)
(set-buffer-file-coding-system 'shift_jis)
;; c-X MでchangeLogにメモ
(defun memo ()
(interactive)
(let ((add-log-current-defun-function 'ignore)
(memo-file "/Documents/memo/diary.txt"))
(set-buffer (find-file-noselect memo-file))
(add-change-log-entry
nil
(expand-file-name memo-file))))
(define-key ctl-x-map "M" 'memo)
;; 個人情報
(setq user-full-name "***")
(setq user-mail-address "surdo@mac.com")
ファイルの入力はシフトJIS、ターミナルの入力はEUCということなので、
チェンジログはシフトJISにしておかないと問答無用で化ける。