Re: prevent scroll-lock-mode from scrolling?

[lee <lee@yagibdah.de>]

Emanuel Berg <embe8573@student.uu.se> writes:

> lee <lee@yagibdah.de> writes:
>
>> is there a way to prevent the point from
>> moving up or down when scroll-lock-mode is
>> enabled and the contents of the buffer have
>> been scrolled so far as for the first or the
>> last line to reach the top or the bottom of
>> the frame, respectively?
>
> I don't know, but try this:
>
> (require 'cl-macs)
>
> ;; civilized scrolling - one line at a time
> (setq scroll-conservatively 10000)
> (setq auto-window-vscroll nil)
>
> ;; scroll the current window
> (defun scroll-up-1 ()
>   (interactive)
>   (scroll-down 1) )
> (defun scroll-down-1 ()
>   (interactive)
>   (scroll-up 1) )
>
> ;; automatic scrolling
> (defun start-automatic-scroll-down ()
>   (interactive)
>   (let ((win))
>     (cl-loop do
>              (progn (setq win (window-end))
>                     (scroll-down-1)
>                     (sleep-for 1) ; put speed here in seconds
>                     (redisplay) )
>      until (= win (window-end)) )))
> ;; (start-automatic-scroll-down)
> ;;                             ^ test here
>
> Civilized scrolling: one line at a time!
>
>     http://user.it.uu.se/~embe8573/conf/emacs-init/scroll.el
>
> I have "scroll-up-1" M-i, ditto down M-k,
> and... well, it is all in the file.
> Worth checking out!

Thanks, I'll try it out! :)

-- 
GNU Emacs 24.5.1 (x86_64-pc-linux-gnu, X toolkit)
 of 2016-03-18 on heimdali