让 Aquamacs 的滚动方式更像 Emacs

Question

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

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

但这并没有成功地重新映射密钥。然后我尝试了类似的方法：

(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)

Answer 2

点击C-SPC Cv Cl，最后一个重新居中的屏幕，似乎表明它确实保留了该标记。

随后的复制和猛拉工作正常，

也许这种行为添加到了较新的 Aquamacs 上。