(defun memo () (interactive) (add-change-log-entry nil (expand-file-name "~/Calendar/diary.txt"))) (define-key ctl-x-map "M" 'memo)
; for ChangeLog (load "changeLogMemo" nil t nil) (setq user-full-name "TAKEchi Masashi") (setq user-mail-address "take@TAKEchon.NET")