Enable repeat-mode for Emacs≥28

2 files changed, 9 insertions, 8 deletions

diff --git a/.emacs b/.emacs
index 8290a1d..fb30d26 100644
--- a/.emacs
+++ b/.emacs
@@ -36,14 +36,14 @@
 
 (global-set-key (kbd "C-x C-b") 'ibuffer)
 
-(defun my/other-window (count &optional all-frames)
-  (interactive "p")
-  (let ((repeat-map (make-sparse-keymap)))
-    (define-key repeat-map [?o] #'other-window)
-    (set-transient-map repeat-map t)
-    (other-window count all-frames)))
-
-(global-set-key (kbd "C-x o") #'my/other-window)
+(when (< emacs-major-version 28)
+  (defun my/other-window (count &optional all-frames)
+    (interactive "p")
+    (let ((repeat-map (make-sparse-keymap)))
+      (define-key repeat-map [?o] #'other-window)
+      (set-transient-map repeat-map t)
+      (other-window count all-frames)))
+  (global-set-key (kbd "C-x o") #'my/other-window))
 
 ;; Hopefully these will be easier to remember than TeX commands:
 
diff --git a/.emacs-custom.el b/.emacs-custom.el
index ef10a73..742822a 100644
--- a/.emacs-custom.el
+++ b/.emacs-custom.el
@@ -96,6 +96,7 @@
  '(read-char-by-name-group t)
  '(read-char-by-name-sort 'code)
  '(read-file-name-completion-ignore-case t)
+ '(repeat-mode t)
  '(scroll-bar-mode nil)
  '(scroll-conservatively 10)
  '(scroll-preserve-screen-position t)