[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 だとうまく行くようだ。様子見。