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