(while (re-search-forward "{\\(sub\\)*section}" nil t)
(goto-char (1+ (match-beginning 0)))
(setq section-type (intern (buffer-substring
(while (re-search-forward "{\\(sub\\)*section}" nil t)
(goto-char (1+ (match-beginning 0)))
(setq section-type (intern (buffer-substring