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)))

'()を使うのは、(これから値を追加していく)空のリストであることを強調したつもりです。
nilだとnilであることに(真偽などの)意味があるような気がしてしまうので…。
スライド数が多くなるなら、consで結合しておいて最後にnreverseするのが一番速いと思います。
appendにしてもadd-to-listにしても毎ループごとにリストの末尾まで辿らないといけませんから。
add-to-listは破壊的なので、add-to-listとappendならadd-to-listの方が速いと思います。

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