diff options
| author | David Morgan <djm_uk@protonmail.com> | 2022-10-24 16:38:23 +0100 |
|---|---|---|
| committer | David Morgan <djm_uk@protonmail.com> | 2022-10-24 16:38:23 +0100 |
| commit | 4c9ca1c1d29309cdfbf3842bce28b467654a87c9 (patch) | |
| tree | 7b495f93e316cb61e8bbcb6717d8444521e5e7b6 | |
| parent | a7ca4e3306f79402e87661a7861a8a13e9478838 (diff) | |
| download | dotfiles-4c9ca1c1d29309cdfbf3842bce28b467654a87c9.tar.gz | |
cbm repeat bindings
| -rw-r--r-- | .emacs.d/lisp/init-windows.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/.emacs.d/lisp/init-windows.el b/.emacs.d/lisp/init-windows.el index 44c75d3..1866726 100644 --- a/.emacs.d/lisp/init-windows.el +++ b/.emacs.d/lisp/init-windows.el @@ -126,9 +126,13 @@ ("C-<" . buffer-ring-prev-buffer) ("C->" . buffer-ring-next-buffer)) -;; TODO C-c ./C-c , C-c >/C-c < , available (but the first two currently clash with other bindings) -;; C-<left> and C-<right> can be used (use-package cbm + :config + (defvar cbm-repeat-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "<") #'cbm-cycle) + map)) + (put 'cbm-cycle 'repeat-map 'cbm-repeat-map) :bind ("C-c C-b <" . cbm-cycle) ("C-c C-b C-b" . cbm-switch-buffer)) |