From 8d8e56272eded6abff514ab08a8b515e63672561 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 14 Aug 2021 12:39:31 -0500
Subject: Use `unfill' package and delete `kill-ring-save-unfilled'

`acdw/copy-region-plain' takes care of what I want it to.
---
 lisp/acdw.el | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 'lisp/acdw.el')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index eab0719..4c17bcb 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -87,21 +87,6 @@ ARG).  When called with multiple arguments or a list, it returns
       (save-restriction
         (unfill-region (point-min) (point-max))))))
 
-(defun kill-ring-save-unfilled (start end &optional region)
-  "Unfill, kill, then re-fill the region defined by START and END positions.
-REGION is passed straight to `kill-ring-save'."
-  (interactive "*r")
-  (let ((sentence-end-double-space nil))
-    (unfill-region start end)
-    (kill-ring-save
-     ;; A quick hack to try and ameliorate the "Args out of range" error when
-     ;; `unfill-region' removes some newlines.  I'm not sure if this will work
-     ;; if calling from Lisp or other such nonsense.
-     (max start (point-min))
-     (min end (point-max))
-     region))
-  (fill-region start end))
-
 (defmacro when-unfocused (name &rest forms)
   "Define a function NAME, executing FORMS, that fires when Emacs
 is unfocused."
-- 
cgit 1.4.1-21-gabe81