lispy.el (lispy-delete-backward): improve

* lispy-test.el (lispy-delete-backward): Add test.

Author: abo-abo

lispy-test.el

@@ -462,7 +462,9 @@ Insert KEY if there's no command."
   (should (string= (lispy-with "(list\n (foo)\n |\"bar\")" "\C-?")
                    "(list\n (foo) |\"bar\")"))
   (should (string= (lispy-with "   |(foo)" "\C-?")
-                   "|(foo)")))
+                   "|(foo)"))
+  (should (string= (lispy-with "(foo (bar) |)" "\C-?")
+                   "(foo (bar)|)")))
 
 (ert-deftest lispy-pair ()
   (should (string= (lispy-with "\"\\\\|\"" "(")

lispy.el

@@ -864,7 +864,7 @@ Otherwise (`backward-delete-char-untabify' ARG)."
                 (looking-at " *$"))
            (backward-delete-char-untabify arg))
 
-          ((looking-back (concat lispy-right " ?"))
+          ((looking-back lispy-right)
            (let ((pt (point)))
              (lispy-backward arg)
              (skip-chars-backward "`',@# \t")