1 files changed, 3 insertions, 1 deletions
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)