     '>' with '&lt;'
     '&' with '&amp;'
     '@' with '&#064;'
-{jpw: 02/2012}"
+    '/*' with '/&#042;'
+    '*/' with '&#042;/'
+{jpw: 06/2012}"
 
   (if (< end-mark start-mark)
       ;; Exchange marks that are out of order.

    (">" . "&gt;")
    ("&" . "&amp;")
    ("@" . "&#064;")
    )
  "Table of characters that can't be used in Javadoc comments, mapped to their
replacements.
{jpw; 02/2012}")


(defconst jpw-javadoc-invalid-chars-re  "[<>&@]"
  "Regexp of characters that can't be used in Javadoc comments.
{jpw; 02/2012}")


(defconst jpw-javadoc-invalid-nontag-chars-re  "[&@]"
  "Regexp of characters that can't be used in Javadoc comments, minus '<' and
'>'
{jpw; 02/2012}")


(defconst jpw-javadoc-chk-invalid-start-re

            (jdb-end (region-end))
            (subblock-start-mark (make-marker))
            (subblock-end-mark (make-marker))
            match-end-start-re
            );;end bindings

        (if (< jdb-end jdb-start)
            ;; Exchange if the region begin/end points are out of order.
            (let ((swap-pt jdb-end))
              (setq jdb-end jdb-start
                    jdb-start swap-pt)
              )
          )

        (save-excursion
          (goto-char jdb-start)
          (while (re-search-forward jpw-javadoc-chk-invalid-start-re
