(let ((my-buffer-name "hoge")
(my-file-name (expand-file-name "~/.emacs")))
(flet ((generate-new-buffer (name)
(get-buffer-create my-buffer-name)))
(find-file my-file-name)))