From 24015ba72720abfafd29dec00276de2e22da13a6 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 25 Aug 2021 23:05:43 -0500 Subject: Change page navigation keys and enable repeat-map --- init.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 162c86c..beb8611 100644 --- a/init.el +++ b/init.el @@ -667,8 +667,16 @@ like a dumbass." (:advise forward-page :after #'recenter-to-top backward-page :after #'recenter-to-top) - (:global "C-x C-n" forward-page - "C-x C-p" backward-page)) + ;; I'm not sure where this is in /my/ version of Emacs + (defvar page-navigation-repeat-map + (let ((map (make-sparse-keymap))) + (define-key map "]" #'forward-page) + (define-key map "[" #'backward-page) + map) + "Keymap to repeat page navigation key sequences. Used in `repeat-mode'.") + + (put 'forward-page 'repeat-map 'page-navigation-repeat-map) + (put 'backward-page 'repeat-map 'page-navigation-repeat-map)) (setup prog (:option smie-indent-basic tab-width) -- cgit 1.4.1-21-gabe81