From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?B?QW5kcmVhcyBSw7ZobGVy?= Subject: Re: BUG typo in babel.org? Date: Tue, 26 Feb 2013 12:28:24 +0100 Message-ID: <512C9C58.7080500@easy-emacs.de> References: <512C8823.9010005@easy-emacs.de> <87wqtv8ihu.fsf@bzg.ath.cx> <512C970A.5030205@easy-emacs.de> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([208.118.235.92]:49042) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UAIhV-00086u-O6 for emacs-orgmode@gnu.org; Tue, 26 Feb 2013 06:28:04 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UAIhT-0001s4-8g for emacs-orgmode@gnu.org; Tue, 26 Feb 2013 06:28:01 -0500 Received: from moutng.kundenserver.de ([212.227.126.171]:55778) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UAIhS-0001qo-Ur for emacs-orgmode@gnu.org; Tue, 26 Feb 2013 06:27:59 -0500 In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Achim Gratz Cc: Bastien , emacs-orgmode Am 26.02.2013 12:19, schrieb Achim Gratz: > Andreas Röhler 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 <>) (progn <>) eval((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 (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 <>" ((: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 <>" ((: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)