emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org cb95d88936 2/4: ob-R.el/ob-python: Update `md5' cal


From: ELPA Syncer
Subject: [elpa] externals/org cb95d88936 2/4: ob-R.el/ob-python: Update `md5' calls to `org-id-uuid'
Date: Wed, 22 Mar 2023 15:58:56 -0400 (EDT)

branch: externals/org
commit cb95d88936b480e15c0b3163e9bc3e38eb0e29b4
Author: Matthew Trzcinski <matt@excalamus.com>
Commit: Matthew Trzcinski <matt@excalamus.com>

    ob-R.el/ob-python: Update `md5' calls to `org-id-uuid'
    
    * ob-R.el (ob-session-async-org-babel-R-evaluate-session): Use
    `org-id-uuid' instead of `md5' as results placeholder.
    
    * ob-python.el (org-babel-python-async-evaluate-session): Use
    `org-id-uuid' instead of `md5' as results placeholder.
---
 lisp/ob-R.el      | 2 +-
 lisp/ob-python.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/ob-R.el b/lisp/ob-R.el
index 2d22a4657a..67b9a68b1a 100644
--- a/lisp/ob-R.el
+++ b/lisp/ob-R.el
@@ -519,7 +519,7 @@ by `org-babel-comint-async-filter'."
           (ess-eval-buffer nil)))
        tmp-file))
     (output
-     (let ((uuid (md5 (number-to-string (random 100000000))))
+     (let ((uuid (org-id-uuid))
            (ess-local-process-name
             (process-name (get-buffer-process session)))
            (ess-eval-visibly-p nil))
diff --git a/lisp/ob-python.el b/lisp/ob-python.el
index e78d950bdc..456f2d489e 100644
--- a/lisp/ob-python.el
+++ b/lisp/ob-python.el
@@ -398,7 +398,7 @@ by `org-babel-comint-async-filter'."
   (let ((python-shell-buffer-name (org-babel-python-without-earmuffs session)))
     (pcase result-type
       (`output
-       (let ((uuid (md5 (number-to-string (random 100000000)))))
+       (let ((uuid (org-id-uuid)))
          (with-temp-buffer
            (insert (format org-babel-python-async-indicator "start" uuid))
            (insert "\n")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]