次のようにするとeshellのプロンプトでclear
できるそうですが、shell-modeでできるように
するにはどうすればいいでしょうか？
s/eshell/shell/ ではだめぽ。直接呼ぶと
(M-x shell/clear)ちゃんと動いてます。

(defun eshell/clear ()
(interactive)
(let ((inhibit-read-only t))
(erase-buffer)))