From 4a4a0d384498853fe5e2ebe2f1f312a796528ec0 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 25 Aug 2021 17:40:07 -0500 Subject: Make C-w work right in paredit-mode --- lisp/acdw.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/acdw.el b/lisp/acdw.el index bd64af3..f23ca0e 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -71,7 +71,9 @@ ARG). When called with multiple arguments or a list, it returns (interactive "p") (if (region-active-p) (kill-region (region-beginning) (region-end)) - (backward-kill-word arg))) + (if (bound-and-true-p paredit-mode) + (paredit-backward-kill-word) + (backward-kill-word arg)))) ;; https://www.emacswiki.org/emacs/UnfillRegion (defun unfill-region (start end) -- cgit 1.4.1-21-gabe81