From bcff3e390f395ab7b03987af22cbe2d11eb3f1c5 Mon Sep 17 00:00:00 2001 From: David Morgan Date: Tue, 31 May 2022 09:31:07 +0100 Subject: Add paredit-kill-region binding --- .emacs.d/lisp/init-paredit.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to '.emacs.d') diff --git a/.emacs.d/lisp/init-paredit.el b/.emacs.d/lisp/init-paredit.el index 0b8c7ce..252932d 100644 --- a/.emacs.d/lisp/init-paredit.el +++ b/.emacs.d/lisp/init-paredit.el @@ -26,7 +26,8 @@ ([remap paredit-wrap-round] . paredit-smart-wrap-round) ([remap paredit-meta-doublequote] . paredit-smart-metadouble-quote) ([remap paredit-splice-sexp] . paredit-smart-splice-sexp) - ("M-W" . paredit-copy-as-kill)) + ("M-W" . paredit-copy-as-kill) + ("C-S-k" . paredit-kill-region)) :config (defmacro define-paredit-smart-wrap (name) `(defun ,(intern (concat "paredit-smart-wrap-" name)) @@ -66,7 +67,8 @@ Falls back to smartparens in comments." `(defun ,(intern (concat "paredit-smart-" name "-sexp")) (&optional argument) ,(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.") +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) -- cgit 1.4.1-2-gfad0