takaxp · January 12, 2012 07:05 · takaxp · Jan 12, 2012
diff --git a/my-find-headings b/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)))
	(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)))