branch: elpa/evil-lisp-state
commit 769d43ab3628ed71770ca12f61187d20b7767921
Author: syl20bnr <[email protected]>
Commit: syl20bnr <[email protected]>
Add forward/backward symbol binding to `L` and `H` respectively
---
README.md | 4 ++--
evil-lisp-state.el | 3 ++-
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/README.md b/README.md
index 58e4fe589d..89edc92183 100644
--- a/README.md
+++ b/README.md
@@ -77,12 +77,14 @@ Key Binding | Function
`el` | eval-last-sexp
`es` | eval-sexp
`h` | sp-backward-sexp
+`H` | sp-backward-symbol
`i` | evil-insert-state
`j` | sp-down-sexp
`J` | sp-backward-down-sexp
`k` | sp-backward-up-sexp
`K` | sp-up-sexp
`l` | sp-forward-sexp
+`L` | sp-forward-symbol
`m` | sp-join-sexp (think about `merge-sexp`)
`p` | evil-past-after
`P` | evil-past-before
@@ -100,8 +102,6 @@ Key Binding | Function
`nU` | sp-backward-unwrap-sexp
`y` | sp-copy-sexp
`ny` | sp-backward-copy-sexp
-`w` | sp-forward-symbol
-`nw` | sp-backward-symbol
`RET` | sp-newline
`ESC` | evil-normal-state
diff --git a/evil-lisp-state.el b/evil-lisp-state.el
index 1f8f9058b7..50af6f48af 100644
--- a/evil-lisp-state.el
+++ b/evil-lisp-state.el
@@ -106,11 +106,13 @@ of COMMAND.
(define-key evil-lisp-state-map "el" 'eval-last-sexp)
(define-key evil-lisp-state-map "es" 'eval-sexp)
(define-key evil-lisp-state-map "h" 'sp-backward-sexp)
+(define-key evil-lisp-state-map "H" 'sp-backward-symbol)
(define-key evil-lisp-state-map "j" 'sp-down-sexp)
(define-key evil-lisp-state-map "J" 'sp-backward-down-sexp)
(define-key evil-lisp-state-map "K" 'sp-up-sexp)
(define-key evil-lisp-state-map "k" 'sp-backward-up-sexp)
(define-key evil-lisp-state-map "l" 'sp-forward-sexp)
+(define-key evil-lisp-state-map "L" 'sp-forward-symbol)
(define-key evil-lisp-state-map "m" 'sp-join-sexp)
(define-key evil-lisp-state-map "p" 'evil-paste-after)
(define-key evil-lisp-state-map "P" 'evil-paste-before)
@@ -124,7 +126,6 @@ of COMMAND.
(define-key evil-lisp-state-map "u" 'undo-tree-undo)
(evil-lisp-state-define-key "U" unwrap-sexp t)
(evil-lisp-state-define-key "y" copy-sexp t)
-(evil-lisp-state-define-key "w" forward-symbol t)
(define-key evil-lisp-state-map (kbd "DEL") 'evil-backward-char)
(define-key evil-lisp-state-map (kbd "RET") 'sp-newline)
(define-key evil-lisp-state-map "i" 'evil-insert-state)
