diff options
author | Case Duckworth | 2022-10-17 21:41:28 -0500 |
---|---|---|
committer | Case Duckworth | 2022-10-17 21:41:28 -0500 |
commit | aab5bfd074e57d06a79e39d7c7c4760e1f385a06 (patch) | |
tree | 7b111190a44458a970355f7a327cc5278c850293 /lisp/+paredit.el | |
parent | asoi (diff) | |
download | emacs-aab5bfd074e57d06a79e39d7c7c4760e1f385a06.tar.gz emacs-aab5bfd074e57d06a79e39d7c7c4760e1f385a06.zip |
Bankruptcy 9
Diffstat (limited to 'lisp/+paredit.el')
-rw-r--r-- | lisp/+paredit.el | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/lisp/+paredit.el b/lisp/+paredit.el deleted file mode 100644 index 0c65328..0000000 --- a/lisp/+paredit.el +++ /dev/null | |||
@@ -1,26 +0,0 @@ | |||
1 | ;;; +paredit.el --- bespoke paredit stuffs -*- lexical-binding: t; -*- | ||
2 | |||
3 | ;;; Commentary: | ||
4 | |||
5 | ;;; Code: | ||
6 | |||
7 | (require '+emacs) ; `+backward-kill-word-wrapper' | ||
8 | |||
9 | (defun +paredit--backward-kill-word (&optional n) | ||
10 | "Perform `paredit-backward-kill-word' N times." | ||
11 | (interactive "p") | ||
12 | (dotimes (_ (or n 1)) | ||
13 | (paredit-backward-kill-word))) | ||
14 | |||
15 | (defun +paredit-backward-kill-word (&optional arg) | ||
16 | "Kill a word backward using `paredit-backward-kill-word'. | ||
17 | Wrapped in `+backward-kill-word-wrapper', which see. | ||
18 | |||
19 | Prefix ARG means to just call `paredit-backward-kill-word'." | ||
20 | ;; Of course, `paredit-backward-kill-word' doesn't TAKE an argument ... :/// | ||
21 | ;; So I had to write the wrapper above. | ||
22 | (interactive) | ||
23 | (+backward-kill-word-wrapper #'+paredit--backward-kill-word arg)) | ||
24 | |||
25 | (provide '+paredit) | ||
26 | ;;; +paredit.el ends here | ||