lookupで検索したキーワードを保存したいと思い、
以下の様なコードを書いてみました。

(defvar lookup-log-filename "/tmp/hoge")
(defun get-lookup-history () lookup-input-history)
(defun lookup-save-history ()
(let ((a (find-file lookup-log-filename)))
(end-of-buffer)
(print (cons (list
(current-time-string)
(cadr (current-time-zone)))
(get-lookup-history)) a)
(save-buffer)
(kill-buffer a) ))

これでは直接入力した物しか記録されません。
lookupの履歴を取るにはどうしたらよいかこ存じありませんか?

またファイル操作の仕方がいまいちよくわからず、
この様になっているのですが、
もっとうまいやりかたがあるのでしょうか。