On 13.01.2024 16:17, Ihor Radchenko wrote:
gerard.vermeu...@posteo.net writes:Attached you'll find a new patch addressing all you issues.Thanks! I tried to run make test, and I am getting FAILED test-ob/demarcate-block ((should (string= region-text (org-trim (nth 1 info)))) :form (string= "mark this line as region" "") :value nil :explanation (arrays-of-different-length 24 0 "mark this line as region" "" first-mismatch-at 0))
I have improved a regexp used to mark a region in this sub-test improving the robustness of the code. Furthermore, I have replaced all occurrences of (set-mark (point)) with (set-mark-command nil), but I doubt that this is the reason.Nevertheless, I feel I need to point out the limitation of this particular
test case. Prerequisites: #+begin_src emacs-lisp :results silent (setopt org-adapt-indentation t org-edit-src-content-indentation 2 org-src-preserve-indentation nil) #+end_src When I mark really the line containing "mark this line as region" C-u C-C C-v C-d works nicely (done in the sub-test). ********** 10 stars with region between two lines #+header: :var b="also seen" #+begin_src any-language -i -n :var a="seen" to upper block mark this line as region to lower block #+end_src but C-u C-c C-v C-d after marking ' this line as ' produces this: ********** 10 stars with region between two lines #+header: :var b="also seen" #+begin_src any-language -i -n :var a="seen" to upper block mark #+end_src ********** #+header: :var b="also seen" #+begin_src any-language -i -n :var a="seen" this line as #+end_src ********** #+header: :var b="also seen" #+begin_src any-language -i -n :var a="seen" region to lower block #+end_src The text after (mark) and (point) is misaligned. I tend to mark regions in a way that is compatible with the patch, but some users won't (maybe they are willing to adapt). Patch attached. Regards -- Gerard
0001-org-babel-demarcate-block-split-using-element-API.patch
Description: Binary data