Hi,
Selecting a subtree only, export to html fails if the subtree contains
a src block. Using 7.01trans, freshly pulled, on Emacs 23.
Example
file: test2.org
-----------------------
* Heading 1
Text
* Heading 2
Text
#+begin_src emacs-lisp
(message "Something funny with export")
#+end_src
-----------------------
Exporting the whole works fine.
Exporting the first subtree (C-c C-e 1 b) works, but leaves an active
region around the subtree.
Exporting the second subtree fails, producing no output, with these
messages:
: Exporting...
: org-babel-exp processing...
: org-open-file: No such file: /Users/CM/org/test2.org::
A backtrace is attached.
Yours,
Christian
Debugger entered--Lisp error: (error #("No such file:
/Users/CM/org/test2.org::" 14 39 (org-attr nil)))
signal(error (#("No such file: /Users/CM/org/test2.org::" 14 39 (org-attr
nil))))
error("No such file: %s" #("/Users/CM/org/test2.org::" 0 25 (org-attr nil)))
(if (and (not ...) (not ...) (not org-open-non-existing-files)) (error "No
such file: %s" file))
(let* ((file ...) (file-apps ...) (apps ...) (apps-dlink ...) (remp ...)
(dirp ...) (file ...) (a-m-a-p ...) (dfile ...) (link ...) (dlink ...)
(old-buffer ...) (old-pos ...) (old-mode major-mode) ext cmd link-match-data)
(if (string-match "^.*\\.\\([a-zA-Z0-9]+\\.gz\\)$" dfile) (setq ext ...) (if
... ...)) (cond (... ...) (in-emacs ...) (t ...)) (when (eq cmd ...) (setq cmd
...)) (when (eq cmd ...) (setq cmd ...)) (when (eq cmd ...) (require ...)
(mailcap-parse-mailcaps) (let* ... ...)) (if (and ... ... ...) (error "No such
file: %s" file)) (cond (... ... ... ... ...) (... ... ... ...) (... ...) (t
...)) (and (org-mode-p) (eq old-mode ...) (or ... ...) (org-mark-ring-push
old-pos old-buffer)))
org-open-file(#("/Users/CM/org/test2.org::" 0 25 (org-attr nil)) nil nil nil)
(if (string-match "[*?{]" (file-name-nondirectory path)) (dired path)
(org-open-file path in-emacs line search))
(cond ((assoc type org-link-protocols) (funcall ... path)) ((equal type
"mailto") (let ... ... ... ...)) ((member type ...) (browse-url ...)) ((string=
type "doi") (browse-url ...)) ((member type ...) (browse-url ...)) ((string=
type "tags") (org-tags-view in-emacs path)) ((string= type "tree-match")
(org-occur ...)) ((string= type "file") (if ... ... ...) (if ... ... ...))
((string= type "news") (require ...) (org-gnus-follow-link path)) ((string=
type "shell") (let ... ...)) ((string= type "elisp") (let ... ...)) ((and ...
...)) ((string= type "thisfile") (if in-emacs ... ...) (let ... ...)) (t
(browse-url-at-point)))
(save-current-buffer (set-buffer (or reference-buffer ...)) (if (string-match
" +\\'" path) (setq path ...)) (if (and org-link-translation-function ...) (let
... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...)
(... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) (... ... ...)
(t ...)))
(with-current-buffer (or reference-buffer (current-buffer)) (if (string-match
" +\\'" path) (setq path ...)) (if (and org-link-translation-function ...) (let
... ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...)
(... ...) (... ... ...) (... ... ...) (... ...) (... ...) (...) (... ... ...)
(t ...)))
(let (type path link line search (pos ...)) (catch (quote match)
(save-excursion ... ...) (when ... ... ...) (save-excursion ...)
(save-excursion ...) (when ... ... ...)) (unless path (error "No link found"))
(with-current-buffer (or reference-buffer ...) (if ... ...) (if ... ...) (cond
... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
(cond ((and ... ... ...) (or ... ...)) ((run-hook-with-args-until-success
...)) ((org-at-timestamp-p t) (org-follow-timestamp-link)) ((or ... ...)
(org-footnote-action)) (t (let ... ... ... ...)))
(if (call-interactively (function org-babel-open-src-block-result)) nil
(org-load-modules-maybe) (move-marker org-open-link-marker (point)) (setq
org-window-config-before-follow-link (current-window-configuration))
(org-remove-occur-highlights nil nil t) (cond (... ...) (...) (... ...) (...
...) (t ...)) (move-marker org-open-link-marker nil) (run-hook-with-args (quote
org-follow-link-hook)))
(unless (call-interactively (function org-babel-open-src-block-result))
(org-load-modules-maybe) (move-marker org-open-link-marker (point)) (setq
org-window-config-before-follow-link (current-window-configuration))
(org-remove-occur-highlights nil nil t) (cond (... ...) (...) (... ...) (...
...) (t ...)) (move-marker org-open-link-marker nil) (run-hook-with-args (quote
org-follow-link-hook)))
org-open-at-point(nil #<buffer test2.org>)
(let ((org-inhibit-startup t)) (org-mode) (insert s) (goto-char (point-min))
(when reference-buffer (setq org-link-abbrev-alist-local ...))
(org-open-at-point arg reference-buffer))
(progn (let (...) (org-mode) (insert s) (goto-char ...) (when
reference-buffer ...) (org-open-at-point arg reference-buffer)))
(unwind-protect (progn (let ... ... ... ... ... ...)) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ...)
(and ... ...)))
(with-current-buffer temp-buffer (unwind-protect (progn ...) (and ... ...)))
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ...
...)))
(with-temp-buffer (let (...) (org-mode) (insert s) (goto-char ...) (when
reference-buffer ...) (org-open-at-point arg reference-buffer)))
(let ((reference-buffer ...)) (with-temp-buffer (let ... ... ... ... ...
...)))
org-open-link-from-string("[[/Users/CM/org/test2.org::]]")
(save-restriction (org-open-link-from-string link) (setf (nth 2 info)
(org-babel-merge-params org-babel-default-header-args ... ... ... raw-params)))
(progn (set-buffer (get-file-buffer org-current-export-file))
(save-restriction (org-open-link-from-string link) (setf ... ...)) (set-buffer
export-buffer) (setf (nth 1 info) (if ... ... ...)))
(if info (progn (set-buffer ...) (save-restriction ... ...) (set-buffer
export-buffer) (setf ... ...)))
(when info (set-buffer (get-file-buffer org-current-export-file))
(save-restriction (org-open-link-from-string link) (setf ... ...)) (set-buffer
export-buffer) (setf (nth 1 info) (if ... ... ...)))
(let* ((raw-header ...) (info ...) (lang ...) (lang-headers ...) (raw-params
...) (link ...) (export-buffer ...)) (when info (set-buffer ...)
(save-restriction ... ...) (set-buffer export-buffer) (setf ... ...))
(org-babel-exp-do-export info (quote block)))
(save-excursion (goto-char (match-beginning 0)) (let* (... ... ... ... ...
... ...) (when info ... ... ... ...) (org-babel-exp-do-export info ...)))
org-babel-exp-src-blocks(#("(message \"Something funny with export\")" 0 39
(fontified t font-lock-fontified t)) #("emacs-lisp" 0 10 (font-lock-fontified t
fontified t)))
apply(org-babel-exp-src-blocks #("(message \"Something funny with export\")"
0 39 (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)))
(let ((replacement ...)) (when replacement (replace-match replacement t t)
(unless preserve-indent ...)))
(progn (let (...) (when replacement ... ...)))
(if (setq func (cadr ...)) (progn (let ... ...)))
(when (setq func (cadr ...)) (let (...) (when replacement ... ...)))
(while (re-search-forward "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[
]*\\(.*\\)?[
\n]\\([^ ]*?\\)[
\n][ ]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation (length ...)) (setq type (intern ...)) (setq
headers (save-match-data ...)) (setq body (match-string 4)) (setq
preserve-indent (or org-src-preserve-indentation ...)) (unless preserve-indent
(setq body ...)) (unless (memq type types) (setq types ...)) (save-match-data
(interblock start ...)) (when (setq func ...) (let ... ...)) (setq start
(match-end 0)))
(progn (fset (quote interblock) (function* ...)) (goto-char (point-min))
(setq start (point)) (while (re-search-forward "^\\([
]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[
\n]\\([^ ]*?\\)[
\n][ ]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...) (setq
body ...) (setq preserve-indent ...) (unless preserve-indent ...) (unless ...
...) (save-match-data ...) (when ... ...) (setq start ...)) (interblock start
(point-max)) (run-hooks (quote org-export-blocks-postblock-hook)))
(unwind-protect (progn (fset ... ...) (goto-char ...) (setq start ...) (while
... ... ... ... ... ... ... ... ... ... ...) (interblock start ...) (run-hooks
...)) (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]\\([^ ]*?\\)[
\n][ ]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...) (setq
body ...) (setq preserve-indent ...) (unless preserve-indent ...) (unless ...
...) (save-match-data ...) (when ... ...) (setq start ...)) (interblock start
(point-max)) (run-hooks (quote org-export-blocks-postblock-hook)))
(letf* ((... ...)) (goto-char (point-min)) (setq start (point)) (while
(re-search-forward "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[
\n]\\([^ ]*?\\)[
\n][ ]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...) (setq
body ...) (setq preserve-indent ...) (unless preserve-indent ...) (unless ...
...) (save-match-data ...) (when ... ...) (setq start ...)) (interblock start
(point-max)) (run-hooks (quote org-export-blocks-postblock-hook)))
(flet ((interblock ... ...)) (goto-char (point-min)) (setq start (point))
(while (re-search-forward "^\\([ ]*\\)#\\+begin_\\(\\S-+\\)[ ]*\\(.*\\)?[
\n]\\([^ ]*?\\)[
\n][ ]*#\\+end_\\S-+.*[
\n]?" nil t) (setq indentation ...) (setq type ...) (setq headers ...) (setq
body ...) (setq preserve-indent ...) (unless preserve-indent ...) (unless ...
...) (save-match-data ...) (when ... ...) (setq start ...)) (interblock start
(point-max)) (run-hooks (quote org-export-blocks-postblock-hook)))
(let ((case-fold-search t) (types ...) indentation type func start body
headers preserve-indent progress-marker) (flet (...) (goto-char ...) (setq
start ...) (while ... ... ... ... ... ... ... ... ... ... ...) (interblock
start ...) (run-hooks ...)))
(save-window-excursion (let (... ... indentation type func start body headers
preserve-indent progress-marker) (flet ... ... ... ... ... ...)))
org-export-blocks-preprocess()
run-hooks(org-export-preprocess-after-include-files-hook)
(save-current-buffer (set-buffer (get-buffer-create " org-mode-tmp"))
(erase-buffer) (insert string) (setq case-fold-search t) (let (...)
(remove-text-properties ... ... ...)) (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-recurse) (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-mark-list-ending backend)
(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)) (run-hooks (quote
org-export-preprocess-after-headline-targets-hook))
(org-export-remember-html-container-classes)
(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)) (run-hooks
(quote org-export-preprocess-before-selecting-backend-code-hook))
(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) (run-hooks (quote
org-export-preprocess-after-radio-targets-hook))
(org-export-concatenate-multiline-links) (run-hooks (quote
org-export-preprocess-before-normalizing-links-hook))
(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)) ...)
(with-current-buffer (get-buffer-create " org-mode-tmp") (erase-buffer)
(insert string) (setq case-fold-search t) (let (...) (remove-text-properties
... ... ...)) (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-recurse) (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-mark-list-ending backend)
(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)) (run-hooks (quote
org-export-preprocess-after-headline-targets-hook))
(org-export-remember-html-container-classes)
(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)) (run-hooks
(quote org-export-preprocess-before-selecting-backend-code-hook))
(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) (run-hooks (quote
org-export-preprocess-after-radio-targets-hook))
(org-export-concatenate-multiline-links) (run-hooks (quote
org-export-preprocess-before-normalizing-links-hook))
(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)) ...)
(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
org-export-preferred-target-alist nil org-export-id-target-alist nil
org-export-code-refs nil) (with-current-buffer (get-buffer-create "
org-mode-tmp") (erase-buffer) (insert string) (setq case-fold-search t) (let
... ...) (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-recurse)
(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-mark-list-ending backend)
(org-export-replace-src-segments-and-examples backend)
(org-export-protect-colon-examples) (when ... ...) (setq target-alist ...)
(run-hooks ...) (org-export-remember-html-container-classes)
(org-export-remove-or-extract-drawers drawers ... backend) (when ... ... ...)
(when ... ... ...) (org-export-remove-headline-metadata parameters) (setq
target-alist ...) (run-hooks ...) (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) (run-hooks ...)
(org-export-concatenate-multiline-links) (run-hooks ...)
(org-export-normalize-links) (org-export-target-internal-links target-alist)
(when ... ...) (when org-export-table-remove-special-lines ...) (run-hooks ...)
...) (kill-buffer " org-mode-tmp") rtn)
org-export-preprocess-string(#("* Heading 2\n\nText\n\n#+begin_src
emacs-lisp\n (message \"Something funny with export\")\n#+end_src\n\n" 0 2
(fontified t face org-level-1 :org-license-to-kill t) 2 11 (fontified t face
org-level-1 :org-license-to-kill t) 11 12 (fontified t :org-license-to-kill t)
12 19 (fontified t) 19 41 (fontified t face org-meta-line font-lock-fontified t
font-lock-multiline t) 41 42 (fontified t font-lock-fontified t
font-lock-multiline t face org-meta-line) 42 83 (fontified t
font-lock-fontified t font-lock-multiline t face org-block) 83 84 (fontified t
font-lock-fontified t font-lock-multiline t face org-block) 84 93 (fontified t
face org-meta-line font-lock-fontified t font-lock-multiline t) 93 94
(fontified t face org-meta-line) 94 95 (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 t)
(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 ...
...) (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
...) (goto-char ...) (let ... ...) (goto-char ...) (when ... ...)
(remove-text-properties ... ... ...) (run-hooks ...) (or to-buffer ...)
(goto-char ...) (or ... ...) (if ... ... ...)))
org-export-as-html(nil hidden)
org-export-as-html-and-open(nil)
call-interactively(org-export-as-html-and-open)
(if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-process-sentinel
p ...) (message "Background process \"%s\": started" p)) (if subtree-p (progn
... ...)) (call-interactively (nth 1 ass)) (when (and bpos ...) (let ... ...
... ... ...)))
(let* ((bg ...) subtree-p (help "[t] insert the export option template\n[v]
limit export to visible part of outline tree\n[1] only export the current
subtree\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EXPORT_FILE_NAME
prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8 [A/N/U] 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 [d] ...
and open PDF file\n\n[D] export as DocBook [V] export as DocBook, process to
PDF, and open\n\n[j] export as TaskJuggler [J] ... and
open\n\n[m] export as Freemind mind map\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 [c] ...as one combined
file\n\n[F] publish current file [P] publish current project\n[X]
publish a project... [E] publish every projects") (cmds ...) r1 r2 ass
(cpos ...) (cbuf ...) bpos) (save-excursion (save-window-excursion ... ... ...
... ... ... ...)) (and bpos (goto-char bpos)) (setq r2 (if ... ... r1)) (unless
(setq ass ...) (error "No command associated with key %c" r1)) (if (and bg ...
... ...) (let ... ... ...) (if subtree-p ...) (call-interactively ...) (when
... ...)))
org-export(nil)
call-interactively(org-export nil nil)
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
