使Aquamacs的滚动更像Emacs

Question

在使用emacs时，我曾经可以使用C-v或scroll-up来设置标记并突出整个页面以进行yanking。然而，在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滚动页面？

- giogadi

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)

- giogadi

Answer 2

按下 C-SPC C-v C-l，最后重新居中屏幕，似乎表明它确实保留了标记。

随后的复制和粘贴正常工作。

也许这种行为是在更新的Aquamacs中添加的。

- Paul