像素滚动的过渡动画

原版的 scroll-up-commandscroll-downcommand 是有一个可选参数表示要滚动几行的,直接 alias 就没这个可选参数了。我写了一个简单的包装,试了一下应该能用:

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

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

话说本站的代码块里 Elisp 的名字是什么呀?我试了 elisp 和 emacs-lisp 都没有高亮

2 个赞