Re: `scroll-conservatively'

[chming <chming@gmail.com>]

flet it go. try this way:

(defun scroll-one-line-up (&optional arg)
  "Scroll the selected window up (forward in the text) one line (or N
lines)."
  (interactive "p")
  (let ((pos
         (save-excursion
           (forward-line (* arg -1))
           (point))))
    (if (not (pos-visible-in-window-p pos))
        (progn
	  (scroll-down (or arg 1))
	  (forward-line -1))
      (forward-line (* arg -1)))))

(defun scroll-one-line-down (&optional arg)
  "Scroll the selected window down (backward in the text) one line (or
N)."
  (interactive "p")
  (let ((pos
         (save-excursion
           (forward-line (or arg 1))
           (point))))
    (if (not (pos-visible-in-window-p pos))
        (progn
	  (scroll-up (or arg 1))
	  (forward-line (or arg 1)))
      (forward-line (or arg 1)))))

(global-set-key   (kbd "C-p")     'scroll-one-line-up)
(global-set-key   (kbd "C-n")     'scroll-one-line-down)

On May 27, 11:17 am, Leo <sdl....@gmail.com> wrote:
> Hi all,
>
> I try to set scroll-conservatively to an integer, however I fail to see
> the difference for different integers. Ideas?
>
> Thanks,
> --
> Leo <sdl.web AT gmail.com>                         (GPG Key: 9283AA3F)