diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index c2b5cc6..c3f5cf7 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -264,6 +264,15 @@
 (when (memq window-system '(mac ns))
   (exec-path-from-shell-initialize))
 
+;;; Stefan Monnier <foo at acm.org>. It is the opposite of fill-paragraph
+(defun unfill-paragraph (&optional region)
+  "Take a multi-line REGION and make it into a single line of text."
+  (interactive (progn (barf-if-buffer-read-only) '(t)))
+  (let ((fill-column (point-max))
+        ;; This would override `fill-column' if it's an integer.
+        (emacs-lisp-docstring-fill-column t))
+    (fill-paragraph nil region)))
+
 ;; =================================================================
 ;; Text mode configuration.
 ;; =================================================================