From b10ee47010b18ec7c8946eefc01814fdb0f57401 Mon Sep 17 00:00:00 2001 From: Frank Fischer Date: Sat, 27 Feb 2016 12:29:40 +0100 Subject: Declare `quoted-insert` change repeatable (fix #627) --- evil-integration.el | 3 ++- evil-tests.el | 18 ++++++++++++++++++ 2 files changed, 20 insertions(+), 1 deletion(-) diff --git a/evil-integration.el b/evil-integration.el index b046842..a8bf6e6 100644 --- a/evil-integration.el +++ b/evil-integration.el @@ -51,7 +51,8 @@ '(what-cursor-position)) (mapc #'evil-declare-change-repeat '(dabbrev-expand - hippie-expand)) + hippie-expand + quoted-insert)) (mapc #'evil-declare-abort-repeat '(balance-windows eval-expression diff --git a/evil-tests.el b/evil-tests.el index 1963215..757b671 100644 --- a/evil-tests.el +++ b/evil-tests.el @@ -1242,6 +1242,24 @@ This buffer is for notes"))) ("^") "xxxline 1\nline 2\nyyyline 3\n[x]xxline 4")) +(ert-deftest evil-test-repeat-quoted-insert () + "Test whether `quoted-insert' can be repeated." + (ert-info ("Insert C-v") + (evil-test-buffer + "lin[e] 1\nline 2\nline 3\n" + ("i\C-v\C-v" [escape]) + "lin[]e 1\nline 2\nline 3\n")) + (ert-info ("Insert ESC") + (evil-test-buffer + "lin[e] 1\nline 2\nline 3\n" + ("i\C-v" [escape escape]) + "lin[]e 1\nline 2\nline 3\n")) + (ert-info ("Block insert C-v") + (evil-test-buffer + "lin[e] 1\nline 2\nline 3\n" + ("gg\C-vGI\C-v\C-v" [escape]) + "[]line 1\nline 2\nline 3\n"))) + (ert-deftest evil-test-insert-vcount () "Test `evil-insert' with vertical repeating" :tags '(evil repeat) -- cgit v1.0