Emacs下设置鼠标滚轮平滑滚动 解决方案
发表于 ： 2008-12-29 12:51
Emacs下用鼠标滚轮滚屏很痛苦，虽然用Emacs的习惯用键盘，但是小菜的我还是需要不时地点选或者鼠标浏览，用滚轮用熟了，习惯不太容易改，但是Emacs下的滚轮滚动跳的太厉害，中文解决方法案没搜到，不过还好最终搜到了比较理想的方法，比默认平滑多了，虽然不算真正的像win下的无缝平滑，但终于能舒服地看代码了
http://zwell.net/content/emacs.html
http://zwell.net/content/emacs.html
代码： 全选
(defun smooth-scroll (increment)
(scroll-up increment) (sit-for 0.05)
(scroll-up increment) (sit-for 0.02)
(scroll-up increment) (sit-for 0.02)
(scroll-up increment) (sit-for 0.05)
(scroll-up increment) (sit-for 0.06)
(scroll-up increment))
(global-set-key [(mouse-5)] '(lambda () (interactive) (smooth-scroll 1)))
(global-set-key [(mouse-4)] '(lambda () (interactive) (smooth-scroll -1)))