[nongnu] elpa/evil-lisp-state f387d10375 054/125: `L` bindings no go to the beginning of the next sexp at the same level

[ELPA Syncer]

branch: elpa/evil-lisp-state
commit f387d1037537265bd8965a2ae842db2238b6e843
Author: syl20bnr <sylvain.benner@gmail.com>
Commit: syl20bnr <sylvain.benner@gmail.com>

    `L` bindings no go to the beginning of the next sexp at the same level
    
    Version 1.6
---
 evil-lisp-state.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/evil-lisp-state.el b/evil-lisp-state.el
index d040d1622a..0f56da96e1 100644
--- a/evil-lisp-state.el
+++ b/evil-lisp-state.el
@@ -5,7 +5,7 @@
 ;; Author: Sylvain Benner <sylvain.benner@gmail.com>
 ;; Keywords: convenience editing evil smartparens lisp mnemonic
 ;; Created: 9 Oct 2014
-;; Version: 1.5.4
+;; Version: 1.6
 ;; Package-Requires: ((evil "1.0.9") (smartparens "1.6.1") (expand-region 
"0.10.0"))
 ;; URL: https://github.com/syl20bnr/evil-lisp-state
 
@@ -116,7 +116,7 @@ of COMMAND.
 (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-symbol)
-(define-key evil-lisp-state-map "L"   'sp-forward-sexp)
+(define-key evil-lisp-state-map "L"   'evil-lisp-state-next-sexp)
 (define-key evil-lisp-state-map "m"   'sp-join-sexp)
 (define-key evil-lisp-state-map "o"   'evil-lisp-state-insert-below)
 (define-key evil-lisp-state-map "O"   'evil-open-above)
@@ -147,6 +147,12 @@ of COMMAND.
     (evil-end-of-line)
     (eval-last-sexp nil)))
 
+(defun evil-lisp-state-next-sexp ()
+  "Go to the beginning of the next sexp of the same level."
+  (interactive)
+  (sp-forward-sexp) (sp-forward-sexp)
+  (sp-backward-sexp))
+
 (defun evil-lisp-state-insert-left-paren ()
   "Switch to insert state and insert `('"
   (interactive)