From 88a5cf7a242f3e6b37ae5d2229b718948e32a5db Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 11 Apr 2011 23:22:48 +0000 Subject: Be explicit about Transient Mark Mode in `paredit-wrap-*' tests. Ignore-this: 1295ab71a3e11223dd5dfca96c6a8292 darcs-hash:20110411232248-00fcc-5bbb48a3bfcddbd0dbd836df292c2059966ec413 --- test.el | 24 ++++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) (limited to 'test.el') diff --git a/test.el b/test.el index 179527f..6cc5462 100644 --- a/test.el +++ b/test.el @@ -158,7 +158,7 @@ Four arguments: the paredit command, the text of the buffer '(("(foo #\\|( )" "(foo #\\()\n|") ("(foo|\n ) ;bar" "(foo) ;bar\n|") ("((foo|\n) (bar))" "((foo)\n |(bar))"))) - + (paredit-test-bracketed '((paredit-wrap-round ?\( ?\)) (paredit-wrap-square ?\[ ?\]) (paredit-wrap-curly ?\{ ?\}) @@ -166,9 +166,25 @@ Four arguments: the paredit command, the text of the buffer ) '(("|foo" "(|foo)") ("|foo bar" "(|foo) bar") - ("|foo bar baz" "(|foo) bar baz") - ("|foo bar_" "(|foo bar)") - ("|foo bar_ baz" "(|foo bar) baz"))) + ("|foo bar baz" "(|foo) bar baz"))) + +(let ((transient-mark-mode t)) + (paredit-test-bracketed '((paredit-wrap-round ?\( ?\)) + (paredit-wrap-square ?\[ ?\]) + (paredit-wrap-curly ?\{ ?\}) + ;; (paredit-wrap-angled ?\< ?\>) + ) + '(("|foo bar_" "(|foo bar)") + ("|foo bar_ baz" "(|foo bar) baz")))) + +(let ((transient-mark-mode nil)) + (paredit-test-bracketed '((paredit-wrap-round ?\( ?\)) + (paredit-wrap-square ?\[ ?\]) + (paredit-wrap-curly ?\{ ?\}) + ;; (paredit-wrap-angled ?\< ?\>) + ) + '(("|foo bar_" "(|foo) bar") + ("|foo bar_ baz" "(|foo) bar baz")))) (let ((current-prefix-arg '(4))) (paredit-test 'paredit-wrap-sexp -- cgit v1.2.1