Re: scrolling line by line does not work

[Kevin Rodgers]

MirkoLink (sent by Nabble.com) wrote:
> 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?

First, the doc string for previous-line suggests calling forward-line
with a negative argument instead.  Does that help?

Second, perhaps something is sensitive to the return value of your
function.  What happens if you reverse the order of the calls to
previous-line and set-buffer-modified-p, or change the body to

(prog1 (previous-line 1)
  (set-buffer-modified-p 1))

--
Kevin Rodgers