dd description for (my/html-paragraphify-buffer).

init.d/text/web.el

@@ -28,9 +28,10 @@
               (message "No active region")))
 
            (defun my/html-paragraphify-buffer ()
+             "Wrap every line not beginning with < or a newline in <p> tags."
              (interactive)
                (goto-char (point-min))
-               (while (re-search-forward "^\\([^<$
+               (while (re-search-forward "^\\([^<
 ].+\\)$" nil t)
                  (replace-match "<p>\\1</p>"))))
   :mode (("\\.[ps]?html?$" . web-mode)