From 6cb5747b0973c36e0e21da4851f35a66c106a327 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 7 Apr 2013 16:46:58 +0000 Subject: Change `paredit-meta-doublequote' to avoid breaking the line. This way, default M-" behaves more like default M-). New command `paredit-meta-doublequote-and-newline' (no default key) behaves like the old `paredit-meta-doublequote'. --- test.el | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) (limited to 'test.el') diff --git a/test.el b/test.el index a63f70e..d46aa13 100644 --- a/test.el +++ b/test.el @@ -1001,6 +1001,40 @@ Four arguments: the paredit command, the text of the buffer ("((x) ;c\n (y)|)" error) ("((x) ;c\n (y))|" error))) +(paredit-test 'paredit-meta-doublequote + '(("|(fo \"ba\\\" bz\" qx)" "\"|(fo \\\"ba\\\\\\\" bz\\\" qx)\"") + ("(|fo \"ba\\\" bz\" qx)" "(\"|fo\" \"ba\\\" bz\" qx)") + ("(f|o \"ba\\\" bz\" qx)" "(f \"|o\" \"ba\\\" bz\" qx)") + ;++ Should the space be left there after the `"'? + ("(fo| \"ba\\\" bz\" qx)" "(fo \"| \\\"ba\\\\\\\" bz\\\"\" qx)") + ("(fo |\"ba\\\" bz\" qx)" "(fo \"|\\\"ba\\\\\\\" bz\\\"\" qx)") + ("(fo \"|ba\\\" bz\" qx)" "(fo \"ba\\\" bz\"| qx)") + ("(fo \"b|a\\\" bz\" qx)" "(fo \"ba\\\" bz\"| qx)") + ("(fo \"ba|\\\" bz\" qx)" "(fo \"ba\\\" bz\"| qx)") + ("(fo \"ba\\|\" bz\" qx)" "(fo \"ba\\\" bz\"| qx)") + ("(fo \"ba\\\"| bz\" qx)" "(fo \"ba\\\" bz\"| qx)") + ("(fo \"ba\\\" |bz\" qx)" "(fo \"ba\\\" bz\"| qx)") + ("(fo \"ba\\\" b|z\" qx)" "(fo \"ba\\\" bz\"| qx)") + ("(fo \"ba\\\" bz|\" qx)" "(fo \"ba\\\" bz\"| qx)") + ;++ Should the space be left there after the `"'? + ("(fo \"ba\\\" bz\"| qx)" "(fo \"ba\\\" bz\" \"| qx\")") + ("(fo \"ba\\\" bz\" |qx)" "(fo \"ba\\\" bz\" \"|qx\")") + ("(fo \"ba\\\" bz\" q|x)" "(fo \"ba\\\" bz\" q \"|x\")") + ("(fo \"ba\\\" bz\" qx|)" "(fo \"ba\\\" bz\" qx \"|\")") + ("(fo \"ba\\\" bz\" qx)|" "(fo \"ba\\\" bz\" qx) \"|\"") + + ;++ Full tests... + ("(foo |(bar #\\x \"baz \\\\ quux\") zot)" + "(foo \"|(bar #\\\\x \\\"baz \\\\\\\\ quux\\\")\" zot)"))) + +;++ Copy tests from `paredit-meta-doublequote'... + +(paredit-test 'paredit-meta-doublequote-and-newline + '(("(foo \"bar |baz\" quux)" + "(foo \"bar baz\"\n |quux)") + ("(foo |(bar #\\x \"baz \\\\ quux\") zot)" + "(foo \"|(bar #\\\\x \\\"baz \\\\\\\\ quux\\\")\" zot)"))) + (defun paredit-canary-indent-method (state indent-point normal-indent) (check-parens) nil) -- cgit v1.2.1