diff options
-rw-r--r-- | lisp/acdw.el | 4 |
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 | |||
71 | (interactive "p") | 71 | (interactive "p") |
72 | (if (region-active-p) | 72 | (if (region-active-p) |
73 | (kill-region (region-beginning) (region-end)) | 73 | (kill-region (region-beginning) (region-end)) |
74 | (backward-kill-word arg))) | 74 | (if (bound-and-true-p paredit-mode) |
75 | (paredit-backward-kill-word) | ||
76 | (backward-kill-word arg)))) | ||
75 | 77 | ||
76 | ;; https://www.emacswiki.org/emacs/UnfillRegion | 78 | ;; https://www.emacswiki.org/emacs/UnfillRegion |
77 | (defun unfill-region (start end) | 79 | (defun unfill-region (start end) |