[Emacs][Scheme] cmuscheme / run-scheme

GNU Emacs 23.1.1 (i386-mingw-nt5.1.2600) にて。

Inferior Mode で 2 窓で上がファイル、下が対話シェルのバッファ、という設定をこころみる。

(defadvice run-lisp (before run-lisp-preparation)
  (switch-to-buffer-other-window (get-buffer-create "*lisp*")))

この Common Lisp の要領で advice をつけたが、 run-scheme には通用しなかった。

(defadvice run-scheme (around run-scheme-around activate)
  (let ((caller (current-buffer)))
    ad-do-it
    (switch-to-buffer caller)
    (switch-to-buffer-other-window (get-buffer-create "*scheme*"))))

around advice だとうまく行くようだ。様子見。