diff options
| author | Davide Masserut <dm@mssdvd.com> | 2021-08-20 17:49:35 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-20 17:49:35 +0200 |
| commit | 63cbb54d7e163f74657dba46829262282ccda0df (patch) | |
| tree | 44087b1fd24e9f7870e3d526712d5d0ce50b32a5 /lisp/bindings.el | |
| parent | b2b9f69b9db7fdedfa90764beced74a7831f50de (diff) | |
| download | emacs-63cbb54d7e163f74657dba46829262282ccda0df.tar.gz emacs-63cbb54d7e163f74657dba46829262282ccda0df.tar.bz2 emacs-63cbb54d7e163f74657dba46829262282ccda0df.zip | |
Mark page navigation commands as repeatable
* doc/emacs/basic.texi (Repeating): Document page navigation
repeatability.
* lisp/bindings.el (page-navigation-repeat-map): Add new map
(bug#50137).
* lisp/bindings.el (forward-page):
(backward-page): Mark as repeatable.
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 03459448943..b67c6ad6382 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -1434,6 +1434,17 @@ if `inhibit-field-text-motion' is non-nil." (define-key ctl-x-map "[" 'backward-page) (define-key ctl-x-map "]" 'forward-page) + +(defvar page-navigation-repeat-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "]") #'forward-page) + (define-key map (kbd "[") #'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) + (define-key ctl-x-map "\C-p" 'mark-page) (define-key ctl-x-map "l" 'count-lines-page) (define-key ctl-x-map "np" 'narrow-to-page) |