 
 ;;;###autoload
 (defun +format/buffer ()
-  "TODO"
+  "Format the source code in the current buffer."
   (interactive)
-  (+format|buffer))
+  (+format-buffer))
 
 ;;;###autoload
 (defun +format/region (beg end)

             ((error "Invalid rcs patch or internal error in +format--apply-rcs-patch")))))))
    (move-to-column column)))


;;
;; Public library

  (add-hook 'before-save-hook #'+format|buffer nil t))

;;;###autoload
(defalias '+format|buffer #'+format-buffer)

