From db829365197d1400c229b5bedfd1a06c7754a30a Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 7 Apr 2013 16:35:27 +0000 Subject: Make `paredit-forward' and `paredit-backward' move out of strings. --- test.el | 122 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 122 insertions(+) (limited to 'test.el') diff --git a/test.el b/test.el index ba71788..bf9d9bf 100644 --- a/test.el +++ b/test.el @@ -741,6 +741,128 @@ Four arguments: the paredit command, the text of the buffer ("\"x|y\"" error) ("\"xy|\"" error))) +(paredit-test 'paredit-forward + '(("|" "|") + + ("|()" "()|" "()|") + ("(|)" "()|" "()|") + ("()|" "()|") + + ("|( )" "( )|" "( )|") + ("(| )" "( )|" "( )|") + ("( |)" "( )|" "( )|") + ("( )|" "( )|") + + ("|\"\"" "\"\"|" "\"\"|") + ("\"|\"" "\"\"|" "\"\"|") + ("\"\"|" "\"\"|") + + ("|\")\"" "\")\"|" "\")\"|") + ("\"|)\"" "\")|\"" "\")\"|" "\")\"|") + ("\")|\"" "\")\"|" "\")\"|") + ("\")\"|" "\")\"|") + + ("|\"()\"" "\"()\"|" "\"()\"|") + ("\"|()\"" "\"()|\"" "\"()\"|" "\"()\"|") + ("\"(|)\"" "\"()|\"" "\"()\"|" "\"()\"|") + ("\"()\"|" "\"()\"|") + + ("|(\"x\" \"y\")" "(\"x\" \"y\")|" "(\"x\" \"y\")|") + ("(|\"x\" \"y\")" "(\"x\"| \"y\")" "(\"x\" \"y\"|)" + "(\"x\" \"y\")|" "(\"x\" \"y\")|") + ("(\"|x\" \"y\")" "(\"x|\" \"y\")" "(\"x\"| \"y\")" "(\"x\" \"y\"|)" + "(\"x\" \"y\")|" "(\"x\" \"y\")|") + ("(\"x|\" \"y\")" "(\"x\"| \"y\")" "(\"x\" \"y\"|)" + "(\"x\" \"y\")|" "(\"x\" \"y\")|") + ("(\"x\"| \"y\")" "(\"x\" \"y\"|)" "(\"x\" \"y\")|" "(\"x\" \"y\")|") + ("(\"x\" |\"y\")" "(\"x\" \"y\"|)" "(\"x\" \"y\")|" "(\"x\" \"y\")|") + ("(\"x\" \"|y\")" "(\"x\" \"y|\")" "(\"x\" \"y\"|)" + "(\"x\" \"y\")|" "(\"x\" \"y\")|") + ("(\"x\" \"y|\")" "(\"x\" \"y\"|)" "(\"x\" \"y\")|" "(\"x\" \"y\")|") + ("(\"x\" \"y\"|)" "(\"x\" \"y\")|" "(\"x\" \"y\")|") + ("(\"x\" \"y\")|" "(\"x\" \"y\")|") + + ("|#\\(" "#\\(|" "#\\(|") + ("#|\\(" "#\\(|" "#\\(|") + ("#\\|(" "#\\(|" "#\\(|") + ("#\\(|" "#\\(|") + + ("|#\\)" "#\\)|" "#\\)|") + ("#|\\)" "#\\)|" "#\\)|") + ("#\\|)" "#\\)|" "#\\)|") + ("#\\)|" "#\\)|") + + ("|#\\\\" "#\\\\|" "#\\\\|") + ("#|\\\\" "#\\\\|" "#\\\\|") + ("#\\|\\" "#\\\\|" "#\\\\|") + ("#\\\\|" "#\\\\|") + + ("|#\\;" "#\\;|" "#\\;|") + ("#|\\;" "#\\;|" "#\\;|") + ("#\\|;" "#\\;|" "#\\;|") + ("#\\;|" "#\\;|"))) + +(paredit-test 'paredit-backward + '(("|" "|") + + ("|()" "|()") + ("(|)" "|()" "|()") + ("()|" "|()" "|()") + + ("|( )" "|( )") + ("(| )" "|( )" "|( )") + ("( |)" "|( )" "|( )") + ("( )|" "|( )" "|( )") + + ("|\"\"" "|\"\"") + ("\"|\"" "|\"\"" "|\"\"") + ("\"\"|" "|\"\"" "|\"\"") + + ("|\")\"" "|\")\"") + ("\"|)\"" "|\")\"" "|\")\"") + ("\")|\"" "|\")\"" "|\")\"") + ("\")\"|" "|\")\"" "|\")\"") + + ("|\"()\"" "|\"()\"") + ("\"|()\"" "|\"()\"" "|\"()\"") + ("\"(|)\"" "\"|()\"" "|\"()\"" "|\"()\"") + ("\"()\"|" "|\"()\"" "|\"()\"") + + ("|(\"x\" \"y\")" "|(\"x\" \"y\")") + ("(|\"x\" \"y\")" "|(\"x\" \"y\")" "|(\"x\" \"y\")") + ("(\"|x\" \"y\")" "(|\"x\" \"y\")" "|(\"x\" \"y\")" "|(\"x\" \"y\")") + ("(\"x|\" \"y\")" "(\"|x\" \"y\")" "(|\"x\" \"y\")" + "|(\"x\" \"y\")" "|(\"x\" \"y\")") + ("(\"x\"| \"y\")" "(|\"x\" \"y\")" "|(\"x\" \"y\")" "|(\"x\" \"y\")") + ("(\"x\" |\"y\")" "(|\"x\" \"y\")" "|(\"x\" \"y\")" "|(\"x\" \"y\")") + ("(\"x\" \"|y\")" "(\"x\" |\"y\")" "(|\"x\" \"y\")" + "|(\"x\" \"y\")" "|(\"x\" \"y\")") + ("(\"x\" \"y|\")" "(\"x\" \"|y\")" "(\"x\" |\"y\")" "(|\"x\" \"y\")" + "|(\"x\" \"y\")" "|(\"x\" \"y\")") + ("(\"x\" \"y\"|)" "(\"x\" |\"y\")" "(|\"x\" \"y\")" + "|(\"x\" \"y\")" "|(\"x\" \"y\")") + ("(\"x\" \"y\")|" "|(\"x\" \"y\")" "|(\"x\" \"y\")") + + ("|#\\(" "|#\\(") + ("#|\\(" "|#\\(" "|#\\(") + ("#\\|(" "|#\\(" "|#\\(") + ("#\\(|" "|#\\(" "|#\\(") + + ("|#\\)" "|#\\)") + ("#|\\)" "|#\\)" "|#\\)") + ("#\\|)" "|#\\)" "|#\\)") + ("#\\)|" "|#\\)" "|#\\)") + + ("|#\\\\" "|#\\\\") + ("#|\\\\" "|#\\\\" "|#\\\\") + ("#\\|\\" "|#\\\\" "|#\\\\") + ("#\\\\|" "|#\\\\" "|#\\\\") + + ("|#\\;" "|#\\;") + ("#|\\;" "|#\\;" "|#\\;") + ("#\\|;" "|#\\;" "|#\\;") + ("#\\;|" "|#\\;" "|#\\;"))) + (defun paredit-canary-indent-method (state indent-point normal-indent) (check-parens) nil) -- cgit v1.2.1