🚀 go-pugleaf

In Epoch 3.2.2 of Sun Nov 24 1991 on freja1 (berkeley-unix)

Im trying to make a command that creates 4 screens so that they
together covers the entire root-window, the fun looks like this :

(defun switch-to-4-screens ()
  (interactive)
  (find-buffer-other-screen (car (buffer-list)))
  (move-screen 5 440)
  (change-screen-size 560 442)
  (find-buffer-other-screen (car (cdr (buffer-list))))
  (move-screen 579 30)
  (change-screen-size 567 377)
  (find-buffer-other-screen (car (cdr (cdr (buffer-list)))))
  (move-screen 578 441)
  (change-screen-size 567 442)
)

When running it, epoch crasches. When I try it interactively,
it crasches when executing the change-screen-size. Before it does, I get
a screen that is much wider than I wanted. The width and height values used
was collected with the fun: screen-information.

Somebody has a clue ?

Jonas Jaernestroem
Ericsson Telecom, Stockholm Sweden.