macos - 让 Aquamacs 的滚动更像 Emacs

Question

当我使用 emacs 时，我曾经能够使用 C-v 或向上滚动设置标记并突出显示整页以进行拉动。但是，在 Aquamacs 中，如果我设置标记然后按 C-v，它会丢失标记并停止突出显示。我注意到在 Aquamacs 中 C-v 被映射到 aquamacs-page-down，所以我尝试将以下命令添加到我的站点文件中:

(define-key osx-key-mode-map "C-v" 'scroll-up)

这并没有成功地重新映射 key 。然后我尝试了类似的东西:

(define-key global-map "\C-v" 'scroll-up)

还是什么都没有。 Aquamacs 非常固执地坚持到 aquamacs-page-down 的映射。但是，我注意到还有一个附加函数 aquamacs-page-down-extend-region，它的作用正是我所说的。但是，它的键序列是 ，我不知道如何输入。我尝试了“shift-control-v”但没有用。

有没有人能让 Aquamacs 在保持标记的同时滚动页面？

Answer 1

为了子孙后代，我已经找到了一种方法让它发挥作用。

将其粘贴到 .emacs 文件中:

;; Enable scrolling to maintain mark if set
(defun scroll-down-maintain-mark ()
  (interactive)
  (if mark-active
      (aquamacs-page-down-extend-region)
    (aquamacs-page-down)))

(defun scroll-up-maintain-mark ()
  (interactive)
  (if mark-active
      (aquamacs-page-up-extend-region)
    (aquamacs-page-up)))

(define-key global-map "\C-v" #'scroll-down-maintain-mark)
(define-key global-map "\M-v" #'scroll-up-maintain-mark)