Macos 使AquaMac滚动更像Emacs

当我使用emacs时，我曾经能够设置标记并高亮显示整个页面，以便使用C-v或向上滚动。然而，在Aquamacs中，如果我设置了标记，然后点击C-v，它将丢失标记并停止高亮显示。我注意到，在Aquamacs中，C-v被映射到Aquamacs page down，因此我尝试将以下命令添加到我的站点文件：

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

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

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

还是什么都没有。Aquamacs非常顽固地挂在映射到Aquamacs页面上。然而，我注意到还有一个额外的功能，aquamacs page down extend region，它正是我所说的。但是，它的关键顺序是，我不知道如何输入。我试过“换档控制-v”但没用

---

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

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

将其粘贴到.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)

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

随后的复制和拉扯工作正常

也许新的Aquamac上增加了这种行为