(defun memo ()
(interactive)
(let ((add-log-current-defun-function 'ignore)
(memo-file "~/memo/diary"))
(set-buffer (find-file-noselect memo-file))
(add-change-log-entry
nil
(expand-file-name memo-file))))

としているんだけど。CVS 版 Emacs だと動きません。