加速键盘滚动

Question

人们可以很容易地映射某些键向上滚动。

(defun up1() 
    (interactive) 
    (scroll-up 1)) 
(defun up2() 
    (interactive) 
    (scroll-up 2)) 
(global-set-key "\M-]" 'up2) 

我正在寻找的是以下行为。滚动的第一把 将调用up1（），随后的调用up2（）。

Answer 1

如何：

(setq my-scroll-counter 0) 
(setq my-scroll-limit 5) 

(defun up1() 
    (interactive) 
    (if (eq last-command this-command) 
     (incf my-scroll-counter) 
    (setq my-scroll-counter 0)) 
    (if (> my-scroll-counter my-scroll-limit) 
     (scroll-up 2) 
    (scroll-up 1))) 

(global-set-key "\M-]" 'up1) 

如果你想要的东西票友一点点，你算算你的滚动步动态基于你多少次重复命令：

(setq my-scroll-counter 0) 
(setq my-maximum-scroll 20) 
(setq my-scroll-acceleration 4) 

(defun up1() 
    (interactive) 
    (if (eq last-command this-command) 
     (incf my-scroll-counter) 
    (setq my-scroll-counter 0)) 
    (scroll-up (min 
       (+ 1 (/ my-scroll-counter my-scroll-acceleration)) 
       my-maximum-scroll))) 

(global-set-key "\M-]" 'up1)