branch: elpa/casual
commit 704f2265204c4f37ee956211969e7b5fae1b3bc3
Merge: de052bb33a e3953da79f
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #163 from kickingvegas/158-add-delete-pair-to-editkit
Add delete-pair to EditKit
---
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)
