From aab5bfd074e57d06a79e39d7c7c4760e1f385a06 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 17 Oct 2022 21:41:28 -0500 Subject: Bankruptcy 9 --- lisp/+paredit.el | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100644 lisp/+paredit.el (limited to 'lisp/+paredit.el') 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 @@ -;;; +paredit.el --- bespoke paredit stuffs -*- lexical-binding: t; -*- - -;;; Commentary: - -;;; Code: - -(require '+emacs) ; `+backward-kill-word-wrapper' - -(defun +paredit--backward-kill-word (&optional n) - "Perform `paredit-backward-kill-word' N times." - (interactive "p") - (dotimes (_ (or n 1)) - (paredit-backward-kill-word))) - -(defun +paredit-backward-kill-word (&optional arg) - "Kill a word backward using `paredit-backward-kill-word'. -Wrapped in `+backward-kill-word-wrapper', which see. - -Prefix ARG means to just call `paredit-backward-kill-word'." - ;; Of course, `paredit-backward-kill-word' doesn't TAKE an argument ... :/// - ;; So I had to write the wrapper above. - (interactive) - (+backward-kill-word-wrapper #'+paredit--backward-kill-word arg)) - -(provide '+paredit) -;;; +paredit.el ends here -- cgit 1.4.1-21-gabe81