djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix paredit/sp wrapper function

This commit is contained in:
David Morgan 2021-12-22 13:01:15 +00:00
parent 1906a446f8
commit c9282d5d57
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.emacs.d/lisp/init-paredit.el
View File

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