1 files changed, 10 insertions, 0 deletions

@@ -87,6 +87,16 @@ 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")
+  (save-excursion
+    (save-restriction
+      (unfill-region start end)
+      (kill-ring-save start end region)
+      (fill-region start end))))
+
 (defmacro when-unfocused (name &rest forms)
   "Define a function NAME, executing FORMS, that fires when Emacs
 is unfocused."