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

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

Author: abo-abo

lispy-test.el

@@ -460,7 +460,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 "(list\n (foo)\n |\"bar\")" "\C-?")
-                   "(list\n (foo) |\"bar\")")))
+                   "(list\n (foo) |\"bar\")"))
+  (should (string= (lispy-with "   |(foo)" "\C-?")
+                   "|(foo)")))
 
 (ert-deftest lispy-pair ()
   (should (string= (lispy-with "\"\\\\|\"" "(")

lispy.el

@@ -913,8 +913,10 @@ Otherwise (`backward-delete-char-untabify' ARG)."
 
           ((looking-back "^ *")
            (delete-region
-            (1- (line-beginning-position))
+            (line-beginning-position)
             (point))
+           (unless (bobp)
+             (backward-delete-char 1))
            (unless (or (eolp)
                        (looking-at lispy-right))
              (just-one-space))