Re: [O] URGENT Bug with exporting org source block

[Achim Gratz]

Eric Schulte writes:
[...]

With your latest changes I get this test regression (I have not checked
which commit is responsible):

Test ob-exp/noweb-on-export-with-exports-results backtrace:
  <(357 nil)
  apply(< (357 nil))
  (setq value-605 (apply fn-603 args-604))
  (unwind-protect (setq value-605 (apply fn-603 args-604)) (setq form-
  (if (unwind-protect (setq value-605 (apply fn-603 args-604)) (setq f
  (unless (unwind-protect (setq value-605 (apply fn-603 args-604)) (se
  (let (form-description-607) (unless (unwind-protect (setq value-605 
  (let ((value-605 (quote ert-form-evaluation-aborted-606))) (let (for
  (let ((fn-603 (function <)) (args-604 (list test-point (re-search-fo
  (should (< test-point (re-search-forward x nil t)))
  (lambda (x) (should (< test-point (re-search-forward x nil t))) (set
  mapcar((lambda (x) (should (< test-point (re-search-forward x nil t)
  (setq G93507 (mapcar (lambda (x) (should (< test-point (re-search-fo
  (let ((kill-buffer-query-functions nil) G93507) (with-temp-file "/tm
  (org-test-with-temp-text-in-file exported-html (mapcar (lambda (x) (
  (let ((exported-html (org-export-as-html nil nil nil (quote string) 
  (save-restriction (org-narrow-to-subtree) (let ((exported-html (org-
  (progn (org-id-goto "8701beb4-13d9-468c-997a-8e63e8b66f8d") (setq to
  (unwind-protect (progn (org-id-goto "8701beb4-13d9-468c-997a-8e63e8b
  (let ((save-match-data-internal (match-data))) (unwind-protect (prog
  (save-match-data (org-id-goto "8701beb4-13d9-468c-997a-8e63e8b66f8d"
  (progn (save-match-data (org-id-goto "8701beb4-13d9-468c-997a-8e63e8
  (unwind-protect (progn (save-match-data (org-id-goto "8701beb4-13d9-
  (let ((wconfig (current-window-configuration))) (unwind-protect (pro
  (save-window-excursion (save-match-data (org-id-goto "8701beb4-13d9-
  (let* ((id-location (org-id-find "8701beb4-13d9-468c-997a-8e63e8b66f
  (org-test-at-id "8701beb4-13d9-468c-997a-8e63e8b66f8d" (org-narrow-t
  (lambda nil (org-test-at-id "8701beb4-13d9-468c-997a-8e63e8b66f8d" (
  byte-code("\306\307!▒q\210\310\216\311 \312\216\313\314\315\316\3
  ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
  byte-code("\306\307!\211▒r\310\311!q\210\312 d\313\223)L\210\314\216
  ert-run-test([cl-struct-ert-test ob-exp/noweb-on-export-with-exports
  ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st
  ert-run-tests("\\(org\\|ob\\)" #[(event-type &rest event-args) \30
  ert-run-tests-batch("\\(org\\|ob\\)")
  ert-run-tests-batch-and-exit("\\(org\\|ob\\)")
  (let ((org-id-track-globally t) (org-id-locations-file (convert-stan
  org-test-run-batch-tests()
  call-interactively(org-test-run-batch-tests nil nil)
  command-execute(org-test-run-batch-tests)
  command-line-1(("-L" "lisp/" "-L" "testing/" "--eval" "(defconst org
  command-line()
  normal-top-level()
Test ob-exp/noweb-on-export-with-exports-results condition:
    (wrong-type-argument number-or-marker-p nil)
   FAILED   21/193  ob-exp/noweb-on-export-with-exports-results


Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

Wavetables for the Waldorf Blofeld:
http://Synth.Stromeko.net/Downloads.html#BlofeldUserWavetables