 buffer"
   (interactive)
   (switch-to-buffer (make-temp-name "scratch-")))
+
++
+;;; Miscellaneous
+
+(defun unfill-paragraph (&optional region)
+  "Takes a multi-line paragraph and makes 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)))
+
+(define-key global-map "\M-Q" 'unfill-paragraph)
 
  

;;;                unique code of 1 or 2 letters. Type this code to jump
;;;                directly to the word. Note that the codes it generates are
;;;                optimized for touch-type.
;;;
;;; Functions:
;;;



;;; Buffers

(defun kill-all-buffers ()
