FriedrichLaher
05-08-2005, 13:29
Was mach ich falsch? mit Folgendem
(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
(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
(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
(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