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

(limited to 'lisp')

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