From 70ff9a027c51118ebba07c9be832c3efa7a7df67 Mon Sep 17 00:00:00 2001 From: Nathan Moreau Date: Thu, 31 Oct 2019 19:46:26 +0100 Subject: electric-pair-mode: prevent self-insert of `>' when already inserted. (#337) --- rust-mode-tests.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'rust-mode-tests.el') diff --git a/rust-mode-tests.el b/rust-mode-tests.el index 3252b6a..42b7a44 100644 --- a/rust-mode-tests.el +++ b/rust-mode-tests.el @@ -3220,4 +3220,18 @@ impl Two<'a> { (ert-deftest rust-test-electric-pair-lt-expression-capitalized-keyword () (test-electric-pair-insert "fn foo() -> Box" 16 ?< ?>)) - ) + + (ert-deftest rust-test-electric-pair-<-> () + (let ((old-electric-pair-mode electric-pair-mode)) + (electric-pair-mode 1) + (unwind-protect + (with-temp-buffer + (electric-pair-mode 1) + (rust-mode) + (mapc (lambda (c) + (let ((last-command-event c)) (self-insert-command 1))) + "tmp") + (should + (equal "tmp" (buffer-substring-no-properties (point-min) + (point-max))))) + (electric-pair-mode (or old-electric-pair-mode 1)))))) -- cgit v1.2.3