[nongnu] elpa/evil-lisp-state 41b73ab51f 053/125: Fix insert of left parenthesis

[ELPA Syncer]

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

    Fix insert of left parenthesis
---
 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 f1e518dc5c..d040d1622a 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.3
+;; Version: 1.5.4
 ;; Package-Requires: ((evil "1.0.9") (smartparens "1.6.1") (expand-region 
"0.10.0"))
 ;; URL: https://github.com/syl20bnr/evil-lisp-state
 
@@ -83,7 +83,7 @@ of COMMAND.
            (define-key evil-lisp-state-map bkey bcmdsym)))))
 
 ;; key bindings
-(define-key evil-lisp-state-map "("   (lambda () (interactive) (evil-insert 
"(")))
+(define-key evil-lisp-state-map "("   'evil-lisp-state-insert-left-paren)
 (define-key evil-lisp-state-map "1"   'digit-argument)
 (define-key evil-lisp-state-map "2"   'digit-argument)
 (define-key evil-lisp-state-map "3"   'digit-argument)
@@ -147,6 +147,12 @@ of COMMAND.
     (evil-end-of-line)
     (eval-last-sexp nil)))
 
+(defun evil-lisp-state-insert-left-paren ()
+  "Switch to insert state and insert `('"
+  (interactive)
+  (evil-insert-state)
+  (sp-insert-pair "("))
+
 (defun evil-lisp-state-insert-below ()
   "Mimic `o' command for lisp state."
   (interactive)