emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-lisp-state 5f663075fa 085/125: Better insert sexp aft


From: ELPA Syncer
Subject: [nongnu] elpa/evil-lisp-state 5f663075fa 085/125: Better insert sexp after/before
Date: Thu, 6 Jan 2022 04:58:43 -0500 (EST)

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

    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)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]