emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: subtree export fails with src block
@ 2010-09-23  7:13 Christian Moe
  2010-09-23  7:25 ` Noorul Islam K M
  0 siblings, 1 reply; 10+ messages in thread
From: Christian Moe @ 2010-09-23  7:13 UTC (permalink / raw)
  To: Org Mode

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

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

[-- Attachment #2: backtrace --]
[-- Type: text/plain, Size: 22968 bytes --]

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-+\\)[ 	]*\\(.*\\)?[\r\n]\\([^\0]*?\\)[\r\n][ 	]*#\\+end_\\S-+.*[\r\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-+\\)[ 	]*\\(.*\\)?[\r\n]\\([^\0]*?\\)[\r\n][ 	]*#\\+end_\\S-+.*[\r\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-+\\)[ 	]*\\(.*\\)?[\r\n]\\([^\0]*?\\)[\r\n][ 	]*#\\+end_\\S-+.*[\r\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-+\\)[ 	]*\\(.*\\)?[\r\n]\\([^\0]*?\\)[\r\n][ 	]*#\\+end_\\S-+.*[\r\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-+\\)[ 	]*\\(.*\\)?[\r\n]\\([^\0]*?\\)[\r\n][ 	]*#\\+end_\\S-+.*[\r\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)) "[\r\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)

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

^ permalink raw reply	[flat|nested] 10+ messages in thread
* Re: Re: Bug: subtree export fails with src block
@ 2010-10-04  3:02 Giovanni Moretti
  2010-10-04 13:21 ` Eric Schulte
  0 siblings, 1 reply; 10+ messages in thread
From: Giovanni Moretti @ 2010-10-04  3:02 UTC (permalink / raw)
  To: emacs-orgmode

I'm just starting with Babel and have been puzzled about why one file
worked and another didn't.

I have been playing in a new file without any headers at all (no lines
starting with '*') and while I could execute the code in the buffer,
exporting to HTML always failed with:

   No such file: c:/org/babel-python-test.org::

When searching, I found this thread and wondered if the heading were
important. It turns out they are. In the block below, exporting to HTML
fails if the first line isn't a heading.

This seems like a clue ...

Cheers and thanks
Giovanni

PS: the BOTH option for :export is hard to find - only :export none is in
the intro page.

===============================
* Python Babel test

Now let's see what happens:

#+begin_src python :results output :exports both
print "Babel"
limits = [1,2,3,4,5,6,7,8,9,10]

for i in limits:
  print "Hello" * i
#+end_src python
================================

^ permalink raw reply	[flat|nested] 10+ messages in thread

end of thread, other threads:[~2010-10-05  7:07 UTC | newest]

Thread overview: 10+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-09-23  7:13 Bug: subtree export fails with src block Christian Moe
2010-09-23  7:25 ` Noorul Islam K M
2010-09-23 15:17   ` Eric Schulte
2010-09-23 18:22     ` Christian Moe
  -- strict thread matches above, loose matches on Subject: below --
2010-10-04  3:02 Giovanni Moretti
2010-10-04 13:21 ` Eric Schulte
2010-10-04 13:48   ` Eric Schulte
2010-10-04 15:02     ` Jörg Hagmann
2010-10-04 15:06       ` Eric Schulte
2010-10-05  7:07         ` Jörg Hagmann

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).