Make C-w work right in paredit-mode

2021-08-25 17:40:07 -05:00 · 2021-08-25 17:40:07 -05:00 · 4a4a0d3844
parent de8263f12f
commit 4a4a0d3844
1 changed files with 3 additions and 1 deletions
--- 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)