org-map-entries with 'region-start-level in a buffer with header text

org-map-entries with 'region-start-level in a buffer with header text

[Matt Price]

[-- Attachment #1: Type: text/plain, Size: 1144 bytes --]

In a buffer with text before the first heading, I get an error using
org-map-entries in this function:

(defun org-export-all (backend)
  "Export all subtrees that are *not* tagged with :noexport: to
separate files.

Note that subtrees must have the :EXPORT_FILE_NAME: property set
to a unique value for this to work properly."
  (interactive "sEnter backend: ")
  (let ((fn (cond ((equal backend "html") 'org-html-export-to-html)
                  ((equal backend "latex") 'org-latex-export-to-latex)
                  ((equal backend "pdf") 'org-latex-export-to-pdf))))
    (save-excursion
      (set-mark (point-min))
      (goto-char (point-max))
      (org-map-entries (lambda () (funcall fn nil t)) "-noexport"
'region-start-level))))

The error is :
Debugger entered--Lisp error: (error "Before first headline at
position 1 in buffer test.org<2>")

Is there a better way to map over first-level heading,
or alternatively, a better way to set the mark? I tried setting mark to :


 (goto-char (point-min)) (re-search-forward "
\\\*"))

but that gave strange results, with the wrong trees
being sent to individual files.

Thank you!

matt

[-- Attachment #2: Type: text/html, Size: 7318 bytes --]