1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-24 07:20:29 +00:00

ob-R, ob-python, ob-shell: Fix async indicator regexps

* lisp/ob-R.el (ob-session-async-org-babel-R-evaluate-session):
* lisp/ob-python.el (org-babel-python-async-evaluate-session):
* lisp/ob-shell.el (org-babel-sh-evaluate): Make regexps stricter,
matching exactly for what we put there.  Previous regexps were not
always matching file names with underscores.

Reported-by: Sam Crawford <sam@crawf.uk>
Link: https://orgmode.org/list/h6c_ta-utc-ugGl4Bq1XXJpXcpXlm_rblFIGJKMH0xiPc-NnJsuVe2z8atXGNcsBlJiR9c24bqLyXFX3GO0tiWtyTUzXMJA81wRIIB-DQfo=@crawf.uk
This commit is contained in:
Ihor Radchenko 2024-06-26 14:55:58 +02:00
parent bd16944e1b
commit 498fd25d25
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
3 changed files with 3 additions and 3 deletions

View File

@ -484,7 +484,7 @@ Returns a placeholder string for insertion, to later be replaced
by `org-babel-comint-async-filter'."
(org-babel-comint-async-register
session (current-buffer)
"^\\(?:[>.+] \\)*\\[1\\] \"ob_comint_async_R_\\(.+?\\)_\\(.+\\)\"$"
"^\\(?:[>.+] \\)*\\[1\\] \"ob_comint_async_R_\\(start\\|end\\|file\\)_\\(.+\\)\"$"
'org-babel-chomp
'ob-session-async-R-value-callback)
(cl-case result-type

View File

@ -537,7 +537,7 @@ Returns a placeholder string for insertion, to later be replaced
by `org-babel-comint-async-filter'."
(org-babel-comint-async-register
session (current-buffer)
"ob_comint_async_python_\\(.+\\)_\\(.+\\)"
"ob_comint_async_python_\\(start\\|end\\|file\\)_\\(.+\\)"
'org-babel-chomp 'org-babel-python-async-value-callback)
(pcase result-type
(`output

View File

@ -338,7 +338,7 @@ return the value of the last statement in BODY."
(org-babel-comint-async-register
session
(current-buffer)
"ob_comint_async_shell_\\(.+\\)_\\(.+\\)"
"ob_comint_async_shell_\\(start\\|end\\|file\\)_\\(.+\\)"
'ob-shell-async-chunk-callback
nil)
(org-babel-comint-async-delete-dangling-and-eval