commit d1a622cf8e03e829ac30086178cab61b64282521 parent 4e27c304ba51e64af8fd0e1295caf86e71e338d4 Author: Kévin Le Gouguec <kevin.legouguec@gmail.com> Date: Wed, 14 Apr 2021 22:59:28 +0200 Enable repeat-mode for Emacs≥28 Diffstat:
| M | .emacs | | | 16 | ++++++++-------- |
| M | .emacs-custom.el | | | 1 | + |
2 files changed, 9 insertions(+), 8 deletions(-)
diff --git 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 @@ -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)