aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorPaul Nelson2025-06-10 09:21:52 +0200
committerJuri Linkov2025-06-11 09:28:42 +0300
commit3a0def802cf576902faafde404d15f079786a2f8 (patch)
tree2a39e5e5d5b8ca99a52e92e112f684aceb922876 /test
parent38c57855ae2b5d4245bce0bb444ee86c35dfcdc5 (diff)
downloademacs-3a0def802cf576902faafde404d15f079786a2f8.tar.gz
emacs-3a0def802cf576902faafde404d15f079786a2f8.zip
Improve repeat-continue property handling
* lisp/repeat.el (repeat-get-map-sym): Support 'repeat-continue' property value of t to continue any active repeat map (suggested by Karthik Chikmagalur <karthikchikmagalur@gmail.com>). Simplify logic so that repeat-continue does not interfere with repeat-map activation. (repeat-check-map): Allow commands with 'repeat-continue' property value of t to continue without checking the key. (repeat-mode): Update and tweak docstring. * lisp/bind-key.el (bind-keys-form): Update handling of ':continue-only' keyword: only add keymap to 'repeat-continue' if current value is a list. (bind-keys): Update documentation, mirroring bind-keys-form. * lisp/keymap.el (defvar-keymap): Update handling of ':continue' keyword: only add keymap to 'repeat-continue' if current value is a list. * test/lisp/repeat-tests.el (repeat-tests-continue) (repeat-tests-continue-another): Enable previously commented tests that now work correctly. * etc/NEWS: Update announcement of 'repeat-continue' (bug#78742).
Diffstat (limited to 'test')
-rw-r--r--test/lisp/repeat-tests.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/test/lisp/repeat-tests.el b/test/lisp/repeat-tests.el
index f96d8df2ebd..6bf9badf31d 100644
--- a/test/lisp/repeat-tests.el
+++ b/test/lisp/repeat-tests.el
@@ -224,9 +224,9 @@
224 "C-M-e c z" 224 "C-M-e c z"
225 '((1 e)) "cz") 225 '((1 e)) "cz")
226 ;; 'C-M-o' should also activate 226 ;; 'C-M-o' should also activate
227 ;; (repeat-tests--check 227 (repeat-tests--check
228 ;; "C-M-o c z" 228 "C-M-o c z"
229 ;; '((1 o) (1 c)) "z") 229 '((1 o) (1 c)) "z")
230 ))) 230 )))
231 231
232(ert-deftest repeat-tests-continue-another () 232(ert-deftest repeat-tests-continue-another ()
@@ -246,9 +246,9 @@
246 "C-M-e t z" 246 "C-M-e t z"
247 '((1 e)) "tz") 247 '((1 e)) "tz")
248 ;; 'C-M-u' should also activate 248 ;; 'C-M-u' should also activate
249 ;; (repeat-tests--check 249 (repeat-tests--check
250 ;; "C-M-u t z" 250 "C-M-u t z"
251 ;; '((1 u) (1 t)) "z") 251 '((1 u) (1 t)) "z")
252 ;; 'C-M-o' shared with another map should continue current map 252 ;; 'C-M-o' shared with another map should continue current map
253 (repeat-tests--check 253 (repeat-tests--check
254 "C-M-s t C-M-o C-M-o t z" 254 "C-M-s t C-M-o C-M-o t z"