Emacs中的多行滚动模式设置

Emacs中M-n和M-p这两个键位绑定空缺，正好将其设置成half-page-scroll.

(defun scroll-half-page-down ()
  "scroll down half the page"
  (interactive)
  (scroll-down (/ (window-body-height) 2)))

(defun scroll-half-page-up ()
  "scroll up half the page"
  (interactive)
  (scroll-up (/ (window-body-height) 2)))

(global-set-key "M-n" 'scroll-half-page-up)
(global-set-key "M-p" 'scroll-half-page-down)

然而，如此设置之后，半页阅读的焦点转换太快，常常“晃动”得我晕头转向。作为改进方案，修改为1/3页阅读。

(defun previous-multilines ()
  "scroll down multiple lines"
  (interactive)
  (scroll-down (/ (window-body-height) 3)))


(defun next-multilines ()
  "scroll up multiple lines"
  (interactive)
  (scroll-up (/ (window-body-height) 3)))

(global-set-key "M-n" 'next-multilines) ;;custom
(global-set-key "M-p" 'previous-multilines) ;;custom

重命名为previous-multilines之后，就与previous-line相呼应。