diff options
| author | Case Duckworth | 2021-08-25 23:05:43 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-25 23:05:43 -0500 |
| commit | 24015ba72720abfafd29dec00276de2e22da13a6 (patch) | |
| tree | 5990b171a9bbe6e6af8ddb428f4e0c634cc5c755 | |
| parent | Change other stuff for scroll-margin changes (diff) | |
| download | emacs-24015ba72720abfafd29dec00276de2e22da13a6.tar.gz emacs-24015ba72720abfafd29dec00276de2e22da13a6.zip | |
Change page navigation keys and enable repeat-map
| -rw-r--r-- | init.el | 12 |
1 files 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." | |||
| 667 | (:advise forward-page :after #'recenter-to-top | 667 | (:advise forward-page :after #'recenter-to-top |
| 668 | backward-page :after #'recenter-to-top) | 668 | backward-page :after #'recenter-to-top) |
| 669 | 669 | ||
| 670 | (:global "C-x C-n" forward-page | 670 | ;; I'm not sure where this is in /my/ version of Emacs |
| 671 | "C-x C-p" backward-page)) | 671 | (defvar page-navigation-repeat-map |
| 672 | (let ((map (make-sparse-keymap))) | ||
| 673 | (define-key map "]" #'forward-page) | ||
| 674 | (define-key map "[" #'backward-page) | ||
| 675 | map) | ||
| 676 | "Keymap to repeat page navigation key sequences. Used in `repeat-mode'.") | ||
| 677 | |||
| 678 | (put 'forward-page 'repeat-map 'page-navigation-repeat-map) | ||
| 679 | (put 'backward-page 'repeat-map 'page-navigation-repeat-map)) | ||
| 672 | 680 | ||
| 673 | (setup prog | 681 | (setup prog |
| 674 | (:option smie-indent-basic tab-width) | 682 | (:option smie-indent-basic tab-width) |