加速鍵盤滾動

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)