M-x test とやって、画面を所定の位置に一発で変更できるようにしたいと思って、
試行錯誤しています。

.emacsに、
(setq default-frame-alist
     (append (list '(top . 100)
              '(left . 100))
       default-frame-alist))

と書き込んで、Emacsを起動するとちゃんとその通りになるのですが、

(defun test()
(setq default-frame-alist
     (append (list '(top . 100)
              '(left . 100))
       default-frame-alist))
)

として、M-x test とやっても、作動してくれません。
どうやればいいのでしょうか？