; Major hack to fix up incorrectly generated </a> tags within tables converted
; from tbl format.

(defun fix-me2html-table-links ()
    (interactive)
    (search-forward "---------------------")
    (beginning-of-line)
    (forward-char 60)
    (kill-line)
    (while (search-forward "</a>" nil t)
        (fix-1-me2html-table-link)
    )
    (save-buffer)
)

(defun fix-1-me2html-table-link ()
    (interactive)
    (beginning-of-line)
    ;(delete-whitespace)
    (while (= (following-char) ? ) (delete-char 1))
    (backward-delete-char 1)
    (search-backward "\">")
    (forward-char 2)
    (delete-char 1)
    (end-of-line)
)