像素滚动的过渡动画

Emacs-general
5

以前都不知道有这个功能，之前用 alias 也只是图方便，没想到会影响到其它地方。 可以干脆将 C-v 和 M-v 这两个翻页键绑定到 pixel-scroll-interpolate 上，或者用更 hack 的方法(编辑：抄了 #6 的代码)：

(pixel-scroll-precision-mode 1)
(setq pixel-scroll-precision-interpolate-page t)
(defun +pixel-scroll-interpolate-down (&optional lines)
  (interactive)
  (if lines
      (pixel-scroll-precision-interpolate (* -1 lines (pixel-line-height)))
    (pixel-scroll-interpolate-down)))

(defun +pixel-scroll-interpolate-up (&optional lines)
  (interactive)
  (if lines
      (pixel-scroll-precision-interpolate (* lines (pixel-line-height))))
  (pixel-scroll-interpolate-up))

(defalias 'scroll-up-command '+pixel-scroll-interpolate-down)
(defalias 'scroll-down-command '+pixel-scroll-interpolate-up)
13 个赞