run-scheme 弹出的 buffer 的高度如何调整?

我运行run-scheme的时候打开的buffer默认就是window-size的一半,想知道这个buffer的默认打开大小应该怎么设置?

(setq scheme-program-name cmd)
(setq scheme-buffer "*scheme*")
(pop-to-buffer "*scheme*")

上面是 cmuscheme.el 中 run-scheme 有关 buffer 操作的代码,我该怎么修改?

(set-window-parameter WINDOW PARAMETER VALUE)

请问一下这个方法要怎么用,直接在pop-to-buffer之前调用一下么

找到了一个可用的 (split-window-vertically (floor (* 0.7 (window-height))))