一つ質問させてください。

temp-bufferを、window分割せずに使用しようとして以下のコードを書きました。
(let ((temp-buffer-show-function 'switch-to-buffer))
(with-output-to-temp-buffer "*test*"
(princ "foobar\n")))
これだとwindow分割せずに*test*といバッファができますが、"foobar"が表示できません。

どうすれば、window分割せずに"foobar"を表示できるのでしょうか？