vbuaraujo

(defun elmord-block-comment-auto-prefix ()
  (when (eq last-command-event ?\n)
    (let* ((last-comment-start
            (save-excursion (search-backward "/*" nil t)))
           (last-comment-end
            (save-excursion (search-backward "*/" last-comment-start t))))
      (when (and last-comment-start (not last-comment-end))
        (insert "* ")
        (indent-for-tab-command)))))