about summary refs log tree commit diff stats
path: root/.emacs.d/lisp/init-windows.el
diff options
context:
space:
mode:
authorDavid Morgan <djm_uk@protonmail.com>2022-10-24 16:38:23 +0100
committerDavid Morgan <djm_uk@protonmail.com>2022-10-24 16:38:23 +0100
commit4c9ca1c1d29309cdfbf3842bce28b467654a87c9 (patch)
tree7b495f93e316cb61e8bbcb6717d8444521e5e7b6 /.emacs.d/lisp/init-windows.el
parenta7ca4e3306f79402e87661a7861a8a13e9478838 (diff)
downloaddotfiles-4c9ca1c1d29309cdfbf3842bce28b467654a87c9.tar.gz
cbm repeat bindings
Diffstat (limited to '.emacs.d/lisp/init-windows.el')
-rw-r--r--.emacs.d/lisp/init-windows.el8
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))