]> git.eshelyaron.com Git - emacs.git/commitdiff
Don't use obsolete `sleep-for` argument
authorStefan Kangas <stefankangas@gmail.com>
Sat, 21 Oct 2023 10:26:00 +0000 (12:26 +0200)
committerStefan Kangas <stefankangas@gmail.com>
Sat, 21 Oct 2023 10:26:36 +0000 (12:26 +0200)
* lisp/net/sieve-manage.el (sieve-manage-wait-for-answer):
* lisp/org/ob-lua.el (org-babel-lua-evaluate-session):
* lisp/org/ob-python.el (org-babel-python-initiate-session-by-key):
(org-babel-python-evaluate-session): Don't use obsolete 'sleep-for'
argument.

lisp/net/sieve-manage.el
lisp/org/ob-lua.el
lisp/org/ob-python.el

index 5bee4f4c4ad524a18b65b35d837c312633bd92b6..81f50e749875be88ba479710b7db877c51a096f3 100644 (file)
@@ -511,7 +511,7 @@ If NAME is nil, return the full server list of capabilities."
     (while (not pos)
       (setq pos (search-forward-regexp pattern nil t))
       (goto-char (point-min))
-      (sleep-for 0 50))
+      (sleep-for 0.05))
     pos))
 
 (defun sieve-manage-drop-next-answer ()
index 81521d9e0a575b8c65843811f351695129139b49..7eaf5e00b13f2b048bf83b4555530c0f0b79a6ce 100644 (file)
@@ -326,7 +326,7 @@ last statement in BODY, as elisp."
 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)
index 6c05d1c8b2af7ac53413d0e915c4c3a01175c41d..48a906a1934422a8de3fdd963401cd33387219f5 100644 (file)
@@ -235,7 +235,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.01)))
         (org-babel-comint-wait-for-output py-buffer))
       (setq org-babel-python-buffers
            (cons (cons session py-buffer)
@@ -403,7 +403,7 @@ last statement in BODY, as elisp."
                      (body (org-babel-python-format-session-value
                             tmp-src-file tmp-results-file result-params)))
                 (org-babel-python--send-string session body)
-                (sleep-for 0 10)
+                 (sleep-for 0.01)
                 (org-babel-eval-read-file tmp-results-file)))))))
     (org-babel-result-cond result-params
       results