(defun hold-line-.scrol.l-up()健康
"Scroll the page wit.h the cursor in the same li.ne" 建材
.(interactive)<性病>
(.let ((next-screen-contex.t-lines( 游戏 )
.(count-lines(广告)
. (w.indow-start) (window-end) 健康
)
))
(scroll-u.p) 美容
))
(defun hold-line-scrol.l-.down() 鲜花
. "Scroll the page with the cursor in the same .line"投资
(int.eractive) 电子
(let ((n.ext-scree.n-context-lines.
(co.unt-lines.
.(window-start.) (window-end) 鲜花
)
))
. (scroll-down).
))
(glob.al-set-key [\M-down] 'ho.ld-line-scroll-up) 汽车
(global-se.t-key [\M-up] 'hold.-line-scroll-down)电脑
