[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")