From 67d6a4f5ad505af98a311bd955dbe7bd2fc4e0b1 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 28 Jan 2014 20:48:18 +0000 Subject: Let C-d and DEL delete the other spurious delimiters too. --- test.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'test.el') diff --git a/test.el b/test.el index 229c0bf..f3444af 100644 --- a/test.el +++ b/test.el @@ -287,7 +287,9 @@ Four arguments: the paredit command, the text of the buffer ("|\\\\\\\\" "|\\\\" "|" error) ("\\\\|\\\\" "\\\\|" error) ("(|\\\\\\\\)" "(|\\\\)" "(|)" "|" error) - ("(\\\\|\\\\)" "(\\\\|)" "(\\\\|)"))) + ("(\\\\|\\\\)" "(\\\\|)" "(\\\\|)") + ("|(" "|" error) + ("|)" "|" error))) (paredit-test 'paredit-backward-delete '(("fo|o" "f|o") @@ -304,7 +306,9 @@ Four arguments: the paredit command, the text of the buffer ("\\\\\\\\|" "\\\\|" "|" error) ("\\\\|\\\\" "|\\\\" error) ("(\\\\\\\\|)" "(\\\\|)" "(|)" "|" error) - ("(\\\\|\\\\)" "(|\\\\)" "(|\\\\)"))) + ("(\\\\|\\\\)" "(|\\\\)" "(|\\\\)") + ("(|" "|" error) + (")|" "|" error))) (dolist (command '(paredit-delete-region paredit-kill-region)) ;++ Need to check whether `paredit-kill-region' updates the kill ring -- cgit v1.2.1