From: "Andreas Röhler" <andreas.roehler@easy-emacs.de>
To: Achim Gratz <Stromeko@NexGo.DE>
Cc: Bastien <bzg@altern.org>, emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Re: BUG typo in babel.org?
Date: Tue, 26 Feb 2013 12:28:24 +0100 [thread overview]
Message-ID: <512C9C58.7080500@easy-emacs.de> (raw)
In-Reply-To: <loom.20130226T121745-282@post.gmane.org>
Am 26.02.2013 12:19, schrieb Achim Gratz:
> Andreas Röhler <andreas.roehler <at> easy-emacs.de> writes:
>> as I'm still exploring org-mode and the way to write tests for,
>> please have a look IIUC,
>
> In any case you should check if that isn't done on purpose to test for the
> reaction of Org to missing code references. There are "negative" tests that are
> expected to fail.
>
>
> Regards,
> Achim.
>
>
>
Being well aware mistakes are possible. Erorr message was
Debugger entered--Lisp error: (void-variable <<noweb-example1>>)
(progn <<noweb-example1>>)
eval((progn <<noweb-example1>>))
((lambda (result) (if (member "none" #1=(cdr (assoc :result-params params))) nil (if (or (member "scalar" #1#) (member "verbatim" #1#) (member "html" #1#) (member "code"
#1#) (member "pp" #1#) (and (member "output" #1#) (not (member "table" #1#)))) (let ((print-level nil) (print-length nil)) (if (or (member "scalar" ...) (member "verbatim"
...)) (format "%S" result) (format "%s" result))) (org-babel-reassemble-table result (org-babel-pick-name (cdr (assoc :colname-names params)) (cdr (assoc :colnames
params))) (org-babel-pick-name (cdr (assoc :rowname-names params)) (cdr (assoc :rownames params))))))) (eval (read (format (if (member "output" (cdr (assoc :result-params
params))) "(with-output-to-string %s)" "(progn %s)") (org-babel-expand-body:emacs-lisp body params)))))
(progn ((lambda (result) (if (member "none" #1=(cdr (assoc :result-params params))) nil (if (or (member "scalar" #1#) (member "verbatim" #1#) (member "html" #1#) (member
"code" #1#) (member "pp" #1#) (and (member "output" #1#) (not ...))) (let ((print-level nil) (print-length nil)) (if (or ... ...) (format "%S" result) (format "%s"
result))) (org-babel-reassemble-table result (org-babel-pick-name (cdr ...) (cdr ...)) (org-babel-pick-name (cdr ...) (cdr ...)))))) (eval (read (format (if (member
"output" (cdr ...)) "(with-output-to-string %s)" "(progn %s)") (org-babel-expand-body:emacs-lisp body params))))))
(unwind-protect (progn ((lambda (result) (if (member "none" #1=(cdr (assoc :result-params params))) nil (if (or (member "scalar" #1#) (member "verbatim" #1#) (member
"html" #1#) (member "code" #1#) (member "pp" #1#) (and ... ...)) (let (... ...) (if ... ... ...)) (org-babel-reassemble-table result (org-babel-pick-name ... ...)
(org-babel-pick-name ... ...))))) (eval (read (format (if (member "output" ...) "(with-output-to-string %s)" "(progn %s)") (org-babel-expand-body:emacs-lisp body
params)))))) (set-window-configuration wconfig))
(let ((wconfig (current-window-configuration))) (unwind-protect (progn ((lambda (result) (if (member "none" #1=(cdr ...)) nil (if (or ... ... ... ... ... ...) (let ...
...) (org-babel-reassemble-table result ... ...)))) (eval (read (format (if ... "(with-output-to-string %s)" "(progn %s)") (org-babel-expand-body:emacs-lisp body
params)))))) (set-window-configuration wconfig)))
org-babel-execute:emacs-lisp(";; noweb-no-start\n <<noweb-example1>>" ((:comments . #1="") (:shebang . #1#) (:cache . "no") (:padline . #1#) (:noweb . "no") (:tangle .
"no") (:exports . "code") (:results . "silent") (:session . "none") (:padnewline . "yes") (:hlines . "yes") (:colnames . "no") (:result-type . value) (:result-params
"silent") (:rowname-names) (:colname-names)))
org-babel-execute-src-block(nil ("emacs-lisp" ";; noweb-no-start\n <<noweb-example1>>" ((:comments . #1="") (:shebang . #1#) (:cache . "no") (:padline . #1#) (:noweb .
"no") (:tangle . "no") (:exports . "code") (:results . "silent") (:session . "none") (:padnewline . "yes") (:hlines . "yes") (:colnames . "no") (:result-type . value)
(:result-params "silent") (:rowname-names) (:colname-names)) "" nil 0))
org-babel-execute-src-block-maybe()
org-babel-execute-maybe()
org-babel-execute-safely-maybe()
run-hook-with-args-until-success(org-babel-execute-safely-maybe)
(cond ((or (and (boundp (quote org-clock-overlays)) org-clock-overlays) org-occur-highlights org-latex-fragment-image-overlays) (and (boundp (quote org-clock-overlays))
(org-clock-remove-overlays)) (org-remove-occur-highlights) (org-remove-latex-fragment-image-overlays) (message "Temporary highlights/overlays removed from current buffer"))
((and (local-variable-p (quote org-finish-function) (current-buffer)) (fboundp org-finish-function)) (funcall org-finish-function)) ((run-hook-with-args-until-success
(quote org-ctrl-c-ctrl-c-hook))) (t (let* ((context (org-element-context)) (type (org-element-type context))) (if (save-excursion (beginning-of-line) (looking-at "[ ]*$"))
(or (run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (user-error "C-c C-c can do nothing useful at this location")) (if (eq type (quote paragraph))
(progn (let (...) (if ... ...)))) (cond ((eql type (quote clock)) (org-clock-update-time-maybe)) ((eql type (quote dynamic-block)) (save-excursion (goto-char ...)
(org-update-dblock))) ((eql type (quote footnote-definition)) (goto-char (org-element-property :post-affiliated context)) (call-interactively (quote org-footnote-action)))
((eql type (quote footnote-reference)) (call-interactively (quote org-footnote-action))) ((memql type (quote ...)) (save-excursion (goto-char ...) (call-interactively
...))) ((eql type (quote item)) (let* (... ... ... ... ... ...) (org-list-set-checkbox ... struct ...) (org-list-struct-fix-ind struct parents 2)
(org-list-struct-fix-item-end struct) (org-list-struct-fix-bul struct prevs) (org-list-struct-fix-ind struct parents) (let ... ... ...))) ((eql type (quote keyword)) (let
(... ...) (if ... ...) (let ... ... --rtn)) (message "Local setup has been refreshed")) ((eql type (quote plain-list)) (let* (... ... ... ... ...) (cond ... ...)
(org-list-write-struct struct ... old-struct) (org-update-checkbox-count-maybe) (save-excursion ... ...))) ((memql type (quote ...)) (call-interactively (quote
org-property-action))) ((memql type (quote ...)) (call-interactively (quote org-update-radio-target-regexp))) ((eql type (quote statistics-cookie)) (call-interactively
(quote org-update-statistics-cookies))) ((memql type (quote ...)) (if (eq ... ...) (message "Use C-c ' to edit table.el tables") (let ... ...))) ((eql type (quote
timestamp)) (org-timestamp-change 0 (quote day))) (t (or (run-hook-with-args-until-success ...) (user-error "C-c C-c can do nothing useful at this location"))))))))
org-ctrl-c-ctrl-c(nil)
call-interactively(org-ctrl-c-ctrl-c nil nil)
command-execute(org-ctrl-c-ctrl-c)
next prev parent reply other threads:[~2013-02-26 11:28 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-02-26 10:02 BUG typo in babel.org? Andreas Röhler
2013-02-26 10:41 ` Bastien
2013-02-26 11:05 ` Andreas Röhler
2013-02-26 11:19 ` Achim Gratz
2013-02-26 11:28 ` Andreas Röhler [this message]
2013-02-26 13:17 ` Achim Gratz
2013-02-26 13:44 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=512C9C58.7080500@easy-emacs.de \
--to=andreas.roehler@easy-emacs.de \
--cc=Stromeko@NexGo.DE \
--cc=bzg@altern.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).