mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Fix obsolete `sleep-for' usage 

* lisp/ob-lua.el (org-babel-lua-evaluate-session):
* lisp/ob-python.el (org-babel-python-initiate-session-by-key):
(org-babel-python-evaluate-session):
* testing/lisp/test-ob-R.el (ob-session-async-R-simple-session-async-value):
(ob-session-async-R-simple-session-async-output):
(ob-session-async-R-named-output):
(ob-session-async-R-named-value):
(ob-session-async-R-output-drawer):
(ob-session-async-R-value-drawer):
(ob-session-R-result-output):
* testing/lisp/test-ob-julia.el (test-ob-julia/async-simple-session-output):
(test-ob-julia/async-named-output):
(test-ob-julia/async-output-drawer):
* testing/lisp/test-ob-python.el (test-ob-python/async-simple-session-output):
(test-ob-python/async-named-output):
(test-ob-python/async-output-drawer): Replace deprecated two integer
argument `sleep-for' calls with one float `sleep-for' calls.
This commit is contained in:
Gerard Vermeulen 2023-10-21 11:50:22 +02:00 committed by Ihor Radchenko
parent edff094b5f
commit 1494445116
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
5 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ob-lua.el
View File

@ -335,7 +335,7 @@ PREAMBLE string is appended to BODY."
If RESULT-TYPE equals `output' then return standard output as a
string. If RESULT-TYPE equals `value' then return the value of the
last statement in BODY, as elisp."
(let* ((send-wait (lambda () (comint-send-input nil t) (sleep-for 0 5)))
(let* ((send-wait (lambda () (comint-send-input nil t) (sleep-for 0.005)))
(dump-last-value
(lambda
(tmp-file pp)

4
lisp/ob-python.el
View File

@ -280,7 +280,7 @@ then create. Return the initialized session."
;; multiple prompts during initialization.
(with-current-buffer py-buffer
(while (not org-babel-python--initialized)
(sleep-for 0 10)))
(sleep-for 0.010)))
(setq org-babel-python-buffers
(cons (cons session py-buffer)
(assq-delete-all session org-babel-python-buffers)))
@ -435,7 +435,7 @@ with open('%s') as f:
(body (org-babel-python-format-session-value
tmp-src-file results-file result-params)))
(org-babel-python-send-string session body)
(sleep-for 0 10)
(sleep-for 0.010)
(org-babel-eval-read-file results-file)))))))
(org-babel-result-cond result-params
results

16
testing/lisp/test-ob-R.el
View File

@ -174,7 +174,7 @@ log10(10)
(and (not (string= expected (org-babel-execute-src-block)))
(string= expected
(progn
(sleep-for 0 200)
(sleep-for 0.200)
(goto-char (org-babel-where-is-src-block-result))
(org-babel-read-result)))))))))
@ -191,7 +191,7 @@ log10(10)
(and (not (string= expected (org-babel-execute-src-block)))
(string= expected
(progn
(sleep-for 0 200)
(sleep-for 0.200)
(goto-char (org-babel-where-is-src-block-result))
(org-babel-read-result)))))))))
@ -208,7 +208,7 @@ log10(10)
(org-test-with-temp-text
(concat src-block results-before)
(should (progn (org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat src-block results-after)
(buffer-string)))))))
@ -223,7 +223,7 @@ log10(10)
(org-test-with-temp-text
(concat src-block results-before)
(should (progn (org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat src-block results-after)
(buffer-string)))))))
@ -239,7 +239,7 @@ log10(10)
(org-test-with-temp-text
src-block
(should (progn (org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat src-block result)
(buffer-string)))))))
@ -253,7 +253,7 @@ log10(10)
(org-test-with-temp-text
src-block
(should (progn (org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat src-block result)
(buffer-string)))))))
@ -268,7 +268,7 @@ log10(10)
(org-test-with-temp-text
src-block
(should (progn (org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat src-block result)
(buffer-string)))))))
@ -312,7 +312,7 @@ x
(org-babel-next-src-block)
(should (progn
(org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat text result)
(buffer-string)))))))

6
testing/lisp/test-ob-julia.el
View File

@ -224,7 +224,7 @@ print('Yep!')
(and (not (string= expected (org-babel-execute-src-block)))
(string= expected
(progn
(sleep-for 0 200)
(sleep-for 0.200)
(goto-char (org-babel-where-is-src-block-result))
(org-babel-read-result)))))))))
@ -248,7 +248,7 @@ print(\"Yep!\")
(org-test-with-temp-text
(concat src-block results-before)
(should (progn (org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat src-block results-after)
(buffer-string)))))))
@ -268,7 +268,7 @@ print(list(range(3)))
(org-test-with-temp-text
src-block
(should (progn (org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat src-block result)
(buffer-string)))))))

6
testing/lisp/test-ob-python.el
View File

@ -242,7 +242,7 @@ print('Yep!')
(and (not (string= expected (org-babel-execute-src-block)))
(string= expected
(progn
(sleep-for 0 200)
(sleep-for 0.200)
(goto-char (org-babel-where-is-src-block-result))
(org-babel-read-result)))))))))
@ -269,7 +269,7 @@ print(\"Yep!\")
(org-test-with-temp-text
(concat src-block results-before)
(should (progn (org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat src-block results-after)
(buffer-string)))))))
@ -292,7 +292,7 @@ print(list(range(3)))
(org-test-with-temp-text
src-block
(should (progn (org-babel-execute-src-block)
(sleep-for 0 200)
(sleep-for 0.200)
(string= (concat src-block result)
(buffer-string)))))))