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

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

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