From c9282d5d579359ece77585ad0cad2f038957ea11 Mon Sep 17 00:00:00 2001 From: David Morgan Date: Wed, 22 Dec 2021 13:01:15 +0000 Subject: Fix paredit/sp wrapper function --- .emacs.d/lisp/init-paredit.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to '.emacs.d/lisp/init-paredit.el') diff --git a/.emacs.d/lisp/init-paredit.el b/.emacs.d/lisp/init-paredit.el index 24cd176..0b8c7ce 100644 --- a/.emacs.d/lisp/init-paredit.el +++ b/.emacs.d/lisp/init-paredit.el @@ -65,15 +65,13 @@ Falls back to smartparens in comments." (defmacro define-paredit-smart-sexp (name) `(defun ,(intern (concat "paredit-smart-" name "-sexp")) (&optional argument) - ,(concat "Wrap the following S-expression, from the beginning of the current symbol. -See `paredit-wrap-sexp' for more details. -Falls back to smartparens in comments and strings.") + ,(concat "Splice the list that the point is on by removing its delimiters. +This version falls back to the smartparens version in scenarios that paredit will not handle.") (interactive "P") (if (or (paredit-in-string-p) (paredit-in-comment-p) (paredit-in-char-p)) (,(intern (concat "sp-" name "-sexp"))) - (beginning-of-thing 'symbol) (,(intern (concat "paredit-" name "-sexp")) argument)))) (define-paredit-smart-sexp "splice") -- cgit 1.4.1-2-gfad0