[nongnu] elpa/casual e3953da79f 173/443: Add delete-pair to EditKit

[ELPA Syncer]

branch: elpa/casual
commit e3953da79fef6871dc2faa5e32bb4fc68f1251dd
Author: Charles Choi <kickingve...@gmail.com>
Commit: Charles Choi <kickingve...@gmail.com>

    Add delete-pair to EditKit
    
    - Adds command `delete-pair` to `casual-editkit-delete-tmenu`.
---
 docs/images/casual-editkit-delete-screenshot.png | Bin 171642 -> 134463 bytes
 lisp/casual-editkit-utils.el                     |   3 ++-
 tests/test-casual-editkit-utils.el               |   2 ++
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/docs/images/casual-editkit-delete-screenshot.png 
b/docs/images/casual-editkit-delete-screenshot.png
index 71207e48b8..a0d8776b6f 100644
Binary files a/docs/images/casual-editkit-delete-screenshot.png and 
b/docs/images/casual-editkit-delete-screenshot.png differ
diff --git a/lisp/casual-editkit-utils.el b/lisp/casual-editkit-utils.el
index 8c4fa58937..1cbe723bc6 100644
--- a/lisp/casual-editkit-utils.el
+++ b/lisp/casual-editkit-utils.el
@@ -386,7 +386,8 @@ Commands pertaining to delete can be accessed here."
   ["Delete"
    [("o" "Just One Space" just-one-space)
     ("j" "Join Line" join-line)
-    ("h" "Horizontal Space" delete-horizontal-space)]
+    ("h" "Horizontal Space" delete-horizontal-space)
+    ("p" "Pair" delete-pair)]
 
    [("b" "Blank Lines" delete-blank-lines)
     ("w" "Whitespace Cleanup" whitespace-cleanup)
diff --git a/tests/test-casual-editkit-utils.el 
b/tests/test-casual-editkit-utils.el
index 18b89adcfe..c845a84243 100644
--- a/tests/test-casual-editkit-utils.el
+++ b/tests/test-casual-editkit-utils.el
@@ -291,6 +291,7 @@
     (cl-letf ((casualt-mock #'just-one-space)
               (casualt-mock #'join-line)
               (casualt-mock #'delete-horizontal-space)
+              (casualt-mock #'delete-pair)
               (casualt-mock #'delete-blank-lines)
               (casualt-mock #'whitespace-cleanup)
               (casualt-mock #'delete-trailing-whitespace)
@@ -301,6 +302,7 @@
              '((:binding "o" :command just-one-space)
                (:binding "j" :command join-line)
                (:binding "h" :command delete-horizontal-space)
+               (:binding "p" :command delete-pair)
                (:binding "b" :command delete-blank-lines)
                (:binding "w" :command whitespace-cleanup)
                (:binding "d" :command delete-trailing-whitespace)