From da2d9cd4b532824e23deaaed7704c5bb8a94ac1c Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Thu, 12 Feb 2026 10:40:33 +0100 Subject: [PATCH] Add support for 'repeat-mode' --- generic/proof-menu.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/generic/proof-menu.el b/generic/proof-menu.el index f9801bbae..e591162e8 100644 --- a/generic/proof-menu.el +++ b/generic/proof-menu.el @@ -143,6 +143,15 @@ without adjusting window layout." ;; NB: C-c ` is next-error in universal-keys (proof-define-keys map proof-universal-keys)) +(defvar proof-repeat-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "C-n") #'proof-assert-next-command-interactive) + (define-key map (kbd "C-u") #'proof-undo-last-successful-command) + map)) + +;; support for `repeat-mode' (≥Emacs 28) +(put #'proof-assert-next-command-interactive 'repeat-map 'proof-repeat-map) +(put #'proof-undo-last-successful-command 'repeat-map 'proof-repeat-map) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;