branch: elpa/evil-lisp-state
commit 5f663075fa245f5a70e6de6bf5de7370c8afa6fc
Author: syl20bnr <[email protected]>
Commit: syl20bnr <[email protected]>
Better insert sexp after/before
---
evil-lisp-state.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/evil-lisp-state.el b/evil-lisp-state.el
index e833241489..047b5008df 100644
--- a/evil-lisp-state.el
+++ b/evil-lisp-state.el
@@ -209,7 +209,7 @@ of COMMAND.
"Insert sexp after the current one."
(interactive)
(let ((sp-navigate-consider-symbols nil))
- (if (char-equal (char-after) ?\() (evil-lisp-state-forward-symbol))
+ (if (char-equal (char-after) ?\() (forward-char))
(sp-up-sexp)
(evil-insert-state)
(sp-newline)
@@ -219,12 +219,13 @@ of COMMAND.
"Insert sexp before the current one."
(interactive)
(let ((sp-navigate-consider-symbols nil))
- (if (char-equal (char-after) ?\() (evil-lisp-state-forward-symbol))
+ (if (char-equal (char-after) ?\() (forward-char))
(sp-backward-sexp)
(evil-insert-state)
(sp-newline)
(evil-previous-visual-line)
(evil-end-of-line)
+ (insert " ")
(sp-insert-pair "(")
(indent-for-tab-command)))
