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/+expand-region.el | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100644 lisp/+expand-region.el

(limited to 'lisp/+expand-region.el')

diff --git a/lisp/+expand-region.el b/lisp/+expand-region.el
deleted file mode 100644
index 8aac3ce..0000000
--- a/lisp/+expand-region.el
+++ /dev/null
@@ -1,24 +0,0 @@
-;;; +expand-region.el                                -*- lexical-binding: t; -*-
-
-;;; Commentary:
-
-;;
-
-;;; Code:
-
-;; Because of `wrap-region', I can't use `expand-region-fast-keys-enabled'.  So
-;; instead of that, I'm adding this to the binding to C--, but I also want to be
-;; able to use the negative argument. So there's this.
-(defun +er/contract-or-negative-argument (arg)
-  "Contract the region if the last command expanded it.
-Otherwise, pass the ARG as a negative argument."
-  (interactive "p")
-  (cond ((memq last-command '(er/expand-region
-                              er/contract-region
-                              +er/contract-or-negative-argument))
-
-         (er/contract-region arg))
-        (t (call-interactively #'negative-argument))))
-
-(provide '+expand-region)
-;;; +expand-region.el ends here
-- 
cgit 1.4.1-21-gabe81