From cb95d88936b480e15c0b3163e9bc3e38eb0e29b4 Mon Sep 17 00:00:00 2001 From: Matthew Trzcinski Date: Wed, 22 Mar 2023 14:20:47 -0400 Subject: [PATCH] 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 2d22a4657..67b9a68b1 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 e78d950bd..456f2d489 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")