CODEWITHSUNDEEP
macosemacsaquamacs
giogadi
giogadi

Reputation: 971

Making Aquamacs scrolling more like Emacs

When I used emacs, I used to be able to set the mark and highlight full pages for yanking using C-v, or scroll-up. However, in Aquamacs if I set the mark then hit C-v it loses the mark and stops highlighting. I noticed that in Aquamacs C-v is instead mapped to aquamacs-page-down, so I tried adding the following command to my site file:

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

and this didn't successfully remap the key. I then tried something similar:

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

and still nothing. Aquamacs very stubbornly hangs onto the mapping to aquamacs-page-down. I noticed, however, that there's an additional function, aquamacs-page-down-extend-region, which does exactly what I'm talking about. Its key sequence, however, is , and I have no idea how to input that. I tried "shift-control-v" to no avail.

Has anyone been able to get Aquamacs to scroll pages while maintaining the mark?

Upvotes: 3

Views: 659

Answers (2)

Paul
Paul

Reputation: 4168

hitting C-SPC C-v C-l, the last to recenter screen, seems to show that it does indeed preserve the mark.

and subsequent copy and yank works fine

perhaps this behavior added on newer Aquamacs.

Upvotes: 1

giogadi
giogadi

Reputation: 971

I've found a way to get this to work, for posterity's sake.

Paste this into the .emacs file:

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

Upvotes: 3

Related Questions