diff options
| author | Nathan Moreau <nathan.moreau@m4x.org> | 2019-10-31 19:46:26 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-31 19:46:26 +0100 |
| commit | 70ff9a027c51118ebba07c9be832c3efa7a7df67 (patch) | |
| tree | 8ee2d1f5f7d7b70a15a485335098c1bf9e46387d /rust-mode-tests.el | |
| parent | c0cc6dc75754fd607572a6fd72945d87729d0174 (diff) | |
| download | rust-mode-70ff9a027c51118ebba07c9be832c3efa7a7df67.tar.gz | |
electric-pair-mode: prevent self-insert of `>' when already inserted. (#337)
Diffstat (limited to 'rust-mode-tests.el')
| -rw-r--r-- | rust-mode-tests.el | 16 |
1 files changed, 15 insertions, 1 deletions
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<T>") + (should + (equal "tmp<T>" (buffer-substring-no-properties (point-min) + (point-max))))) + (electric-pair-mode (or old-electric-pair-mode 1)))))) |