ウィンドウを選択する

;; 一時的にウィンドウを選択し、その後で元のウィンドウに戻す
(save-selected-window
  (switch-to-buffer " test1")
  (insert "This is a test1")
  (select-window (split-window-vertically))
  (switch-to-buffer " test2")
  (insert "This is a test2"))

P131

Emacs Lispテクニックバイブル