diff options
| author | Case Duckworth | 2021-08-25 17:40:07 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-25 17:40:07 -0500 |
| commit | 4a4a0d384498853fe5e2ebe2f1f312a796528ec0 (patch) | |
| tree | 801d9635a81a113906cacf419bf74bd23e90fee3 | |
| parent | Add repeat-mode to acdw-compat (diff) | |
| download | emacs-4a4a0d384498853fe5e2ebe2f1f312a796528ec0.tar.gz emacs-4a4a0d384498853fe5e2ebe2f1f312a796528ec0.zip | |
Make C-w work right in paredit-mode
| -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) |