fix(delsel): do not run sp-delete-pair with active region

Fixes #703.
Fuco1 · Mar 25, 2024 · 755b62f · 755b62f
1 parent 6c21901
commit 755b62f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/smartparens.el b/smartparens.el
@@ -4241,6 +4241,7 @@ is remove the just added wrapping."
   ;; multiple character, so let him do that
   (sp--with-case-sensitive
     (when (and (= arg 1)
+               (not (use-region-p))
                smartparens-mode)
       (if (and sp-autodelete-wrap
                (eq sp-last-operation 'sp-wrap-region))

diff --git a/test/smartparens-delete-pair-test.el b/test/smartparens-delete-pair-test.el
@@ -79,3 +79,12 @@
     (smartparens-strict-mode 1)
     (sp-backward-delete-char)
     (sp-buffer-equals "\" | \"")))
+
+(ert-deftest sp-test-delete-pair-dont-delete-with-active-region ()
+  "Fixes #703"
+  (sp-test-with-temp-elisp-buffer "(|
+
+M)"
+    (smartparens-strict-mode -1)
+    (call-interactively 'backward-delete-char)
+    (should (equal (buffer-string) "()"))))