emacs-lisp: set-frame-position

Was mach ich falsch? mit Folgendem

Code:

---

  (setq fpx (cdr (assoc 'left (frame-parameters))))
  (setq fpy (cdr (assoc 'top  (frame-parameters))))

  (setq fpx (+ 1 fpx))

  (set-frame-position (next-frame) fpx fpy)

---

sollt eigentlich nur eine Verschiebung um 1 pixel
nach rechts erfolgen - aber es wird auch oft nach unten
verschoben. ( wen mann's z.B. so

Code:

---

(setq n 1000)
(while (> (setq n (1- n)) 0 )
 (progn
  (setq fpx (cdr (assoc 'left (frame-parameters))))
  (setq fpy (cdr (assoc 'top  (frame-parameters))))

  (setq fpx (+ 1 fpx))

  (set-frame-position (next-frame) fpx fpy)

  (if (/= fpy (cdr (assoc 'top (frame-parameters))) ) (ding))
 )
)

---

macht)
Dabei ist es egal og man's mit eval-region, eval buffer
oder
nach abspeichern als t.el, mit
emacs -l t.el
laufen lässt. Seltsamerweise wird dann öfters sogar auch
wieder "zurück" ( nach links ) verschoben