Emacs Lispでrm -rf ~
するにはどうしたらいいのかね?