diff options
author | Damien Cassou <damien@cassou.me> | 2022-10-26 17:12:14 +0200 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-30 14:14:13 +0100 |
commit | b1fa7974bb416b3b44234966ff14c6a4719d7997 (patch) | |
tree | fde9e81f6ec5a117a294853a58d47ae08dac37b2 | |
parent | cb8918d7cc028988bad79b66cbf577f2f37413e1 (diff) | |
download | emacs-b1fa7974bb416b3b44234966ff14c6a4719d7997.tar.gz |
Make previous-buffer and next-buffer repeatable
* lisp/bindings.el (buffer-navigation-repeat-map): Add new map.
* lisp/bindings.el (previous-buffer, next-buffer): Mark as
repeatable. (Bug#58800)
-rw-r--r-- | lisp/bindings.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 2e321282742..c1ad5f7520e 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -1029,6 +1029,14 @@ if `inhibit-field-text-motion' is non-nil." (define-key global-map [XF86Back] 'previous-buffer) (put 'previous-buffer :advertised-binding [?\C-x left]) +(defvar-keymap buffer-navigation-repeat-map + :doc "Keymap to repeat `next-buffer' and `previous-buffer'. Used in `repeat-mode'." + "<right>" #'next-buffer + "<left>" #'previous-buffer) + +(put 'next-buffer 'repeat-map 'buffer-navigation-repeat-map) +(put 'previous-buffer 'repeat-map 'buffer-navigation-repeat-map) + (let ((map minibuffer-local-map)) (define-key map "\en" 'next-history-element) (define-key map [next] 'next-history-element) |