diff --git a/init.d/text/web.el b/init.d/text/web.el
index 639b6e2..1be3d36 100644
--- a/init.d/text/web.el
+++ b/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)