Emacs滚动图片底部的时候，自动滚动到图片顶部了

[codedoc]

当Emacs中的window高度小于图片高度的时候，使用鼠标滚动图片，当滚动到图片底部的时候，继续滚动的话，图片顶部重新出现在window中，然后可以无限向下滚动…

[fontux]

可以试试

(defun set-image-mode-mwheel-scroll-function ()
  (setq-local mwheel-scroll-down-function 'image-scroll-down)
  (setq-local mwheel-scroll-up-function 'image-scroll-up))

(add-hook 'image-mode-hook #'set-image-mode-mwheel-scroll-function)

不影响 mouse-wheel-scroll-amount 的功能。