Exporting a file with a source block before the first heading, like:
#+BEGIN_SRC emacs-lisp
...
#+END_SRC
to html yields the error
"Before first headline at position 3 in buffer org-mode-tmp"
A backtrace is attached.
Andreas
Emacs : GNU Emacs 23.1.1 (x86_64-pc-linux-gnu, GTK+ Version 2.16.6)
of 2009-11-18 on fluxx
Package: Org-mode version 6.33f (release_6.33f.16.ge103)
Debugger entered--Lisp error: (error "Before first headline at position 3 in
buffer org-mode-tmp")
signal(error ("Before first headline at position 3 in buffer org-mode-tmp"))
error("Before first headline at position %d in buffer %s" 3 #<buffer
org-mode-tmp>)
(condition-case nil (outline-back-to-heading invisible-ok) (error (error
"Before first headline at position %d in buffer %s" ... ...)))
org-back-to-heading(t)
(progn (org-back-to-heading t) (point))
(or beg (progn (org-back-to-heading t) (point)))
(let* ((beg ...) (end ...)) (goto-char beg) (if (re-search-forward
org-property-start-re end t) (setq beg ...) (if force ... ...) (goto-char beg)
(if ... ...)) (if (re-search-forward org-property-end-re end t) (setq end ...)
(or force ...) (goto-char beg) (setq end beg) (org-indent-line-function)
(insert ":END:\n")) (cons beg end))
(save-excursion (let* (... ...) (goto-char beg) (if ... ... ... ... ...) (if
... ... ... ... ... ... ...) (cons beg end)))
(catch (quote exit) (save-excursion (let* ... ... ... ... ...)))
org-get-property-block()
(let ((range ...)) (if (and range ... ...) (if ... ... "")))
(if (member property org-special-properties) (cdr (assoc property ...)) (let
(...) (if ... ...)))
(if (and inherit (if ... ... t)) (org-entry-get-with-inheritance property)
(if (member property org-special-properties) (cdr ...) (let ... ...)))
(save-excursion (goto-char (or pom ...)) (if (and inherit ...)
(org-entry-get-with-inheritance property) (if ... ... ...)))
(save-excursion (if (markerp pom) (set-buffer ...)) (save-excursion
(goto-char ...) (if ... ... ...)))
(org-with-point-at pom (if (and inherit ...) (org-entry-get-with-inheritance
property) (if ... ... ...)))
org-entry-get(3 "exports" selective)
(or (org-entry-get (point) header-arg (quote selective)) (cdr (assoc
header-arg org-file-properties)))
(let ((val ...)) (when val (cons ... val)))
(lambda (header-arg) (let (...) (when val ...)))("exports")
mapcar((lambda (header-arg) (let (...) (when val ...))) ("exports" "results"
"session" "tangle" "var"))
(delq nil (mapcar (lambda ... ...) (quote ...)))
(progn (delq nil (mapcar ... ...)))
(unwind-protect (progn (delq nil ...)) (set-match-data
save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal ...)) (unwind-protect (progn ...)
(set-match-data save-match-data-internal ...)))
(save-match-data (delq nil (mapcar ... ...)))
org-babel-params-from-properties()
(org-babel-merge-params org-babel-default-header-args
(org-babel-params-from-properties) (if (boundp lang-headers) (eval
lang-headers) nil) (org-babel-parse-header-arguments
(org-babel-clean-text-properties ...)))
(list lang (with-temp-buffer (save-match-data ... ... ...))
(org-babel-merge-params org-babel-default-header-args
(org-babel-params-from-properties) (if ... ... nil)
(org-babel-parse-header-arguments ...)) switches)
(let* ((lang ...) (lang-headers ...) (switches ...) (body ...)
(preserve-indentation ...)) (list lang (with-temp-buffer ...)
(org-babel-merge-params org-babel-default-header-args ... ... ...) switches))
org-babel-parse-src-block-match()
(setq info (org-babel-parse-src-block-match))
(save-excursion (goto-char head) (setq info
(org-babel-parse-src-block-match)) (forward-line -1) (when (looking-at ...)
(setq info ...) (if ... ...) (unless header-vars-only ...)) info)
(if (setq head (org-babel-where-is-src-block-head)) (save-excursion
(goto-char head) (setq info ...) (forward-line -1) (when ... ... ... ...) info)
(if (save-excursion ... ...) (org-babel-parse-inline-src-block-match) nil))
(let ((case-fold-search t) head info args) (if (setq head ...)
(save-excursion ... ... ... ... info) (if ... ... nil)))
org-babel-get-src-block-info()
(org-babel-exp-do-export (org-babel-get-src-block-info) (quote block))
(and (re-search-backward org-babel-src-block-regexp nil t)
(org-babel-exp-do-export (org-babel-get-src-block-info) (quote block)))
(or (and (re-search-backward org-babel-src-block-regexp nil t)
(org-babel-exp-do-export ... ...)) (and (re-search-backward org-block-regexp
nil t) (match-string 0)) (error "Unmatched block [bug in
`org-babel-exp-src-blocks']."))
org-babel-exp-src-blocks(#("\n" 0 1 (fontified t font-lock-fontified t))
#("emacs-lisp" 0 10 (font-lock-fontified t fontified t)))
apply(org-babel-exp-src-blocks #("\n" 0 1 (fontified t font-lock-fontified
t)) #("emacs-lisp" 0 10 (font-lock-fontified t fontified t)))
(if (memq type org-export-blocks-witheld) "" (apply func body headers))
(progn (if (memq type org-export-blocks-witheld) "" (apply func body
headers)))
(unwind-protect (progn (if ... "" ...)) (set-match-data
save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal ...)) (unwind-protect (progn ...)
(set-match-data save-match-data-internal ...)))
(save-match-data (if (memq type org-export-blocks-witheld) "" (apply func
body headers)))
(replace-match (save-match-data (if ... "" ...)) t t)
(progn (replace-match (save-match-data ...) t t) (unless preserve-indent
(indent-code-rigidly ... ... indentation)))
(if (setq func (cadr ...)) (progn (replace-match ... t t) (unless
preserve-indent ...)))
(while (re-search-forward "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[
]*\\(.*\\)?[
\n]\\([^ (progn (fset (quote interblock) (function* ...)) (goto-char
(point-min)) (setq start (point)) (while (re-search-forward "^\\([
]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[
\n]\\([^ (unwind-protect (progn (fset ... ...) (goto-char ...) (setq start
...) (while ... ... ... ... ... ... ... ... ... ... ...) (interblock start
...)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
(let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn
... ... ... ... ...) (if --cl-letf-bound-- ... ...)))
(letf ((... ...)) (goto-char (point-min)) (setq start (point)) (while
(re-search-forward "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[
\n]\\([^ (letf* ((... ...)) (goto-char (point-min)) (setq start (point))
(while (re-search-forward "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[
]*\\(.*\\)?[
\n]\\([^ (flet ((interblock ... ...)) (goto-char (point-min)) (setq start
(point)) (while (re-search-forward "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[
]*\\(.*\\)?[
\n]\\([^ (let ((case-fold-search t) (types ...) indentation type func start
body headers preserve-indent) (flet (...) (goto-char ...) (setq start ...)
(while ... ... ... ... ... ... ... ... ... ... ...) (interblock start ...)))
(save-window-excursion (let (... ... indentation type func start body headers
preserve-indent) (flet ... ... ... ... ...)))
org-export-blocks-preprocess()
run-hooks(org-export-preprocess-hook)
(save-current-buffer (set-buffer (get-buffer-create " org-mode-tmp"))
(erase-buffer) (insert string) (setq case-fold-search t)
(org-export-kill-licensed-text) (let (...) (org-mode)) (setq case-fold-search
t) (org-install-letbind) (run-hooks (quote org-export-preprocess-hook))
(org-export-preprocess-apply-macros) (run-hooks (quote
org-export-preprocess-after-macros-hook)) (untabify (point-min) (point-max))
(org-export-handle-include-files) (run-hooks (quote
org-export-preprocess-after-include-files-hook))
(org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags
(plist-get parameters :select-tags) (plist-get parameters :exclude-tags))
(run-hooks (quote org-export-preprocess-after-tree-selection-hook))
(org-export-replace-src-segments-and-examples backend)
(org-export-protect-colon-examples) (when (plist-get parameters :footnotes)
(org-footnote-normalize nil t)) (setq target-alist
(org-export-define-heading-targets target-alist))
(org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)
backend) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...)
(when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...)
(insert ... "\n")) (org-export-remove-headline-metadata parameters) (setq
target-alist (org-export-handle-invisible-targets target-alist))
(org-export-select-backend-specific-text backend)
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines)
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center)
(run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless
(plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq
target-alist (org-export-attach-captions-and-attributes backend target-alist))
(org-export-mark-radio-links) (org-export-concatenate-multiline-links)
(org-export-normalize-links) (org-export-target-internal-links target-alist)
(when (plist-get parameters :emph-multiline)
(org-export-concatenate-multiline-emphasis)) (when
org-export-table-remove-special-lines (org-export-remove-special-table-lines))
(run-hooks (quote org-export-preprocess-before-backend-specifics-hook)) (when
latexp (require ... nil) (org-export-latex-preprocess parameters)) (when asciip
(org-export-ascii-preprocess parameters)) (when htmlp
(org-export-html-preprocess parameters)) (when docbookp (require ... nil)
(org-export-docbook-preprocess parameters)) (org-export-handle-comments
(plist-get parameters :comments)) (run-hooks (quote
org-export-preprocess-final-hook)) (setq rtn (buffer-string)))
(with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer)
(insert string) (setq case-fold-search t) (org-export-kill-licensed-text) (let
(...) (org-mode)) (setq case-fold-search t) (org-install-letbind) (run-hooks
(quote org-export-preprocess-hook)) (org-export-preprocess-apply-macros)
(run-hooks (quote org-export-preprocess-after-macros-hook)) (untabify
(point-min) (point-max)) (org-export-handle-include-files) (run-hooks (quote
org-export-preprocess-after-include-files-hook))
(org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags
(plist-get parameters :select-tags) (plist-get parameters :exclude-tags))
(run-hooks (quote org-export-preprocess-after-tree-selection-hook))
(org-export-replace-src-segments-and-examples backend)
(org-export-protect-colon-examples) (when (plist-get parameters :footnotes)
(org-footnote-normalize nil t)) (setq target-alist
(org-export-define-heading-targets target-alist))
(org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)
backend) (when (plist-get parameters :skip-before-1st-heading) (goto-char ...)
(when ... ... ... ...)) (when (plist-get parameters :add-text) (goto-char ...)
(insert ... "\n")) (org-export-remove-headline-metadata parameters) (setq
target-alist (org-export-handle-invisible-targets target-alist))
(org-export-select-backend-specific-text backend)
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines)
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center)
(run-hooks (quote org-export-preprocess-after-blockquote-hook)) (unless
(plist-get parameters :timestamps) (org-export-remove-timestamps)) (setq
target-alist (org-export-attach-captions-and-attributes backend target-alist))
(org-export-mark-radio-links) (org-export-concatenate-multiline-links)
(org-export-normalize-links) (org-export-target-internal-links target-alist)
(when (plist-get parameters :emph-multiline)
(org-export-concatenate-multiline-emphasis)) (when
org-export-table-remove-special-lines (org-export-remove-special-table-lines))
(run-hooks (quote org-export-preprocess-before-backend-specifics-hook)) (when
latexp (require ... nil) (org-export-latex-preprocess parameters)) (when asciip
(org-export-ascii-preprocess parameters)) (when htmlp
(org-export-html-preprocess parameters)) (when docbookp (require ... nil)
(org-export-docbook-preprocess parameters)) (org-export-handle-comments
(plist-get parameters :comments)) (run-hooks (quote
org-export-preprocess-final-hook)) (setq rtn (buffer-string)))
(let* ((htmlp ...) (asciip ...) (latexp ...) (docbookp ...) (backend ...)
(archived-trees ...) (inhibit-read-only t) (drawers org-drawers)
(outline-regexp "\\*+ ") target-alist rtn) (setq org-export-target-aliases nil)
(setq org-export-preferred-target-alist nil) (setq org-export-code-refs nil)
(with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer) (insert
string) (setq case-fold-search t) (org-export-kill-licensed-text) (let ... ...)
(setq case-fold-search t) (org-install-letbind) (run-hooks ...)
(org-export-preprocess-apply-macros) (run-hooks ...) (untabify ... ...)
(org-export-handle-include-files) (run-hooks ...)
(org-export-remove-archived-trees archived-trees)
(org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags
... ...) (run-hooks ...) (org-export-replace-src-segments-and-examples backend)
(org-export-protect-colon-examples) (when ... ...) (setq target-alist ...)
(org-export-remove-or-extract-drawers drawers ... backend) (when ... ... ...)
(when ... ... ...) (org-export-remove-headline-metadata parameters) (setq
target-alist ...) (org-export-select-backend-specific-text backend)
(org-export-protect-quoted-subtrees) (org-export-remove-clock-lines)
(org-export-protect-verbatim) (org-export-mark-blockquote-verse-center)
(run-hooks ...) (unless ... ...) (setq target-alist ...)
(org-export-mark-radio-links) (org-export-concatenate-multiline-links)
(org-export-normalize-links) (org-export-target-internal-links target-alist)
(when ... ...) (when org-export-table-remove-special-lines ...) (run-hooks ...)
(when latexp ... ...) (when asciip ...) (when htmlp ...) (when docbookp ...
...) (org-export-handle-comments ...) (run-hooks ...) (setq rtn ...))
(kill-buffer " org-mode-tmp") rtn)
org-export-preprocess-string(#("\n\n#+BEGIN_SRC emacs-lisp\n\n(defun test ()
)\n\n#+END_SRC \n\n" 0 2 (fontified t) 2 24 (fontified t face org-meta-line
font-lock-fontified t font-lock-multiline t) 24 25 (fontified t
font-lock-fontified t font-lock-multiline t face org-meta-line) 25 26
(fontified t font-lock-fontified t font-lock-multiline t face org-block) 26 43
(fontified t font-lock-fontified t font-lock-multiline t face org-block
:org-license-to-kill t) 43 44 (fontified t font-lock-fontified t
font-lock-multiline t face org-meta-line) 44 54 (fontified t face org-meta-line
font-lock-fontified t font-lock-multiline t) 54 56 (fontified t))
:emph-multiline t :for-html t :skip-before-1st-heading nil :drawers nil
:todo-keywords t :tags not-in-toc :priority nil :footnotes t :timestamps t
:archived-trees headline :select-tags ("export") :exclude-tags ("noexport")
:add-text nil :LaTeX-fragments nil)
(org-split-string (org-export-preprocess-string region :emph-multiline t
:for-html t :skip-before-1st-heading (plist-get opt-plist
:skip-before-1st-heading) :drawers (plist-get opt-plist :drawers)
:todo-keywords (plist-get opt-plist :todo-keywords) :tags (plist-get opt-plist
:tags) :priority (plist-get opt-plist :priority) :footnotes (plist-get
opt-plist :footnotes) :timestamps (plist-get opt-plist :timestamps)
:archived-trees (plist-get opt-plist :archived-trees) :select-tags (plist-get
opt-plist :select-tags) :exclude-tags (plist-get opt-plist :exclude-tags)
:add-text (plist-get opt-plist :text) :LaTeX-fragments (plist-get opt-plist
:LaTeX-fragments)) "[
\n]")
(let* ((opt-plist ...) (body-only ...) (style ...) (html-extension ...)
(link-validate ...) valid thetoc have-headings first-heading-pos (odd
org-odd-levels-only) (region-p ...) (rbeg ...) (rend ...) (subtree-p ...)
(level-offset ...) (opt-plist ...) (org-current-export-dir ...)
(org-current-export-file buffer-file-name) (level 0) (line "") (origline "")
txt todo (umax nil) (umax-toc nil) (filename ...) (current-dir ...) (buffer
...) (org-levels-open ...) (date ...) (author ...) (title ...) (link-up ...)
(link-home ...) (dummy ...) (html-table-tag ...) (quote-re0 ...) (quote-re ...)
(inquote nil) (infixed nil) (inverse nil) (in-local-list nil) (local-list-type
nil) (local-list-indent nil) (llt org-plain-list-ordered-item-terminator)
(email ...) (language ...) (keywords ...) (description ...) (lang-words nil)
...) (let (...) (org-unmodified ...)) (message "Exporting...") (setq
org-min-level (org-get-min-level lines level-offset)) (setq org-last-level
org-min-level) (org-init-section-numbers) (cond (... ...) (date) (t ...)) (setq
lang-words (or ... ...)) (set-buffer buffer) (let (...) (erase-buffer))
(fundamental-mode) (org-install-letbind) (and (fboundp ...)
(set-buffer-file-coding-system coding-system-for-write)) (let (... ...) (mapc
... org-export-plist-vars) (setq umax ...) (setq umax-toc ...) (unless
body-only ... ... ...) (if ... ...) (setq head-count 0)
(org-init-section-numbers) (org-open-par) (while ... ...) (when inquote ...
...) (when in-local-list ... ...) (org-html-level-start 1 nil umax ...
head-count) (when ... ...) (save-excursion ... ...) (when footnotes ...) (let
... ...) (unless body-only ... ... ... ...) (unless ... ... ...) (goto-char
...) (when thetoc ... ... ... ...) (goto-char ...) (while ... ...) (goto-char
...) (while ... ...) (goto-char ...) (while ... ...) (goto-char ...) (let ...
...) (run-hooks ...) (or to-buffer ...) (goto-char ...) (or ... ...) (if ...
... ...)))
org-export-as-html(nil)
call-interactively(org-export-as-html)
(if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sentinel
p ...) (message "Background process \"%s\": started" p)) (call-interactively
(nth 1 ass)))
(let* ((bg ...) (help "[t] insert the export option template\n[v] limit
export to visible part of outline tree\n\n[a] export as ASCII [A] to
temporary buffer\n\n[h] export as HTML [H] to temporary buffer [R] export
region\n[b] export as HTML and open in browser\n\n[l] export as LaTeX [L] to
temporary buffer\n[p] export as LaTeX and process to PDF\n[d] export as LaTeX,
process to PDF, and open the resulting PDF document\n\n[D] export as
DocBook\n[V] export as DocBook, process to PDF, and open the resulting PDF
document\n\n[m] export as Freemind mind map\n\n[x] export as XOXO\n[g] export
using Wes Hardaker's generic exporter\n\n[i] export current file as iCalendar
file\n[I] export all agenda files as iCalendar files\n[c] export agenda files
into combined iCalendar file\n\n[F] publish current file [P] publish
current project\n[X] publish a project... [E] publish every projects")
(cmds ...) r1 r2 ass) (save-excursion (save-window-excursion ... ... ... ...
...)) (setq r2 (if ... ... r1)) (unless (setq ass ...) (error "No command
associated with key %c" r1)) (if (and bg ... ... ...) (let ... ... ...)
(call-interactively ...)))
org-export(nil)
call-interactively(org-export nil nil)
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
