branch: elpa/evil-lisp-state
commit 24b9a1dfb6fbaef74a16944145265461c5e82cbc
Author: syl20bnr <[email protected]>
Commit: syl20bnr <[email protected]>
Add sp-(backward)-delete-char bindings to `x` and `X`
---
README.md | 2 ++
evil-lisp-state.el | 2 ++
2 files changed, 4 insertions(+)
diff --git a/README.md b/README.md
index 89edc92183..1a53a4b315 100644
--- a/README.md
+++ b/README.md
@@ -101,6 +101,8 @@ Key Binding | Function
`U` | sp-unwrap-sexp
`nU` | sp-backward-unwrap-sexp
`y` | sp-copy-sexp
+`x` | sp-delete-char
+`X` | sp-backward-delete-char
`ny` | sp-backward-copy-sexp
`RET` | sp-newline
`ESC` | evil-normal-state
diff --git a/evil-lisp-state.el b/evil-lisp-state.el
index 4e05fff964..c020dd747e 100644
--- a/evil-lisp-state.el
+++ b/evil-lisp-state.el
@@ -126,6 +126,8 @@ of COMMAND.
(define-key evil-lisp-state-map "T" 'sp-transpose-hybrid-sexp)
(define-key evil-lisp-state-map "u" 'undo-tree-undo)
(evil-lisp-state-define-key "U" unwrap-sexp t)
+(define-key evil-lisp-state-map "x" 'sp-delete-char)
+(define-key evil-lisp-state-map "X" 'sp-backward-delete-char)
(evil-lisp-state-define-key "y" copy-sexp t)
(define-key evil-lisp-state-map (kbd "DEL") 'evil-backward-char)
(define-key evil-lisp-state-map (kbd "RET") 'sp-newline)
