The follow function works correct:
(defun testMirko nil
""
(interactive)
(previous-line 1))
The screen scrolls line by line.
This works not correct, but I don't know, why:
(defun testMirko nil
""
(interactive)
(previous-line 1)
(set-buffer-modified-p 1))
The upper line jump to the middle of the screen.
Can everybody help me?
Thanks!
Mirko