1 files changed, 14 insertions, 0 deletions

@@ -73,6 +73,20 @@ ARG).  When called with multiple arguments or a list, it returns
       (kill-region (region-beginning) (region-end))
     (backward-kill-word arg)))
 
+;; https://www.emacswiki.org/emacs/UnfillRegion
+(defun unfill-region (start end)
+  "Unfill a region defined by START and END positions."
+  (interactive "*r")
+  (let ((fill-column (point-max))
+        (emacs-lisp-docstring-fill-column t))
+    (fill-region start end)))
+
+(defun unfill-buffer (&optional buffer-or-name)
+  (with-current-buffer (or buffer-or-name (current-buffer))
+    (save-excursion
+      (save-restriction
+        (unfill-region (point-min) (point-max))))))
+
 (defmacro when-unfocused (name &rest forms)
   "Define a function NAME, executing FORMS, that fires when Emacs
 is unfocused."