diff options
| author | Paul Nelson | 2025-06-10 09:21:52 +0200 |
|---|---|---|
| committer | Juri Linkov | 2025-06-11 09:28:42 +0300 |
| commit | 3a0def802cf576902faafde404d15f079786a2f8 (patch) | |
| tree | 2a39e5e5d5b8ca99a52e92e112f684aceb922876 /test | |
| parent | 38c57855ae2b5d4245bce0bb444ee86c35dfcdc5 (diff) | |
| download | emacs-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.el | 12 |
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" |