(while (progn
(switch-to-buffer (car buffers))
(setq buffers (cdr buffers)))
- (split-window-vertically lines-per-buffer)
+ (split-window-below lines-per-buffer)
(other-window 1))
(select-window (frame-first-window frame)))
(select-frame old-frame))))