diff options
| -rw-r--r-- | test.el | 14 |
1 files changed, 8 insertions, 6 deletions
@@ -98,7 +98,8 @@ Four arguments: the paredit command, the text of the buffer ("(foo |\"bar\" baz)" "(foo (|) \"bar\" baz)") ("(foo \"bar\"| baz)" "(foo \"bar\" (|) baz)") ("foo|" "foo (|)") - ("|foo" "(|) foo"))) + ("|foo" "(|) foo") + ("\\|(" "\\|("))) (let ((current-prefix-arg 1)) (paredit-test-bracketed '((paredit-open-round ?\( ?\)) @@ -129,11 +130,12 @@ Four arguments: the paredit command, the text of the buffer (paredit-test-bracketed '((paredit-close-round ?\( ?\)) (paredit-close-square ?\[ ?\]) (paredit-close-curly ?\{ ?\}) - (paredit-close-angled ?\< ?\>)) - '(("(#\\|x)" "(#\\|x)") - ("(#\\|])" "(#\\|])") - ("(#\\| )" "(#\\| )") - ("(#\\|\")" "(#\\|\")") + ;; (paredit-close-angled ?\< ?\>) + ) + '(("(#\\|x)" "(#\\x)|") + ("(#\\|])" "(#\\])|") + ("(#\\| )" "(#\\ )|") + ("(#\\|\")" "(#\\\")|") ("(\"|\")" "(\")|\")") ("(\"|\")" "(\")|\")"))) |