Function: HEADING-TEXT-P

Source

(defun heading-text-p (text)
  (scan "^;;;;\\s*\\*+" text))