my-find-headings

my-find-headings

(defun my-find-headings ()
  (let ((eob (point-max))
	(head-list '()))
    (save-excursion
      (goto-char (point-min))
      (while (when (search-forward-regexp "^\*\\([^*]\\|$\\)" eob t)
	       (setq head-list (cons (match-beginning 0) head-list))
	       (forward-line))))
    (reverse head-list)))

うう．たくさんのコメントありがとうございます（T-T）
ノウハウを色々と教えていただいたので本当に勉強になりますっ