From a6bcde3d60067eaf9fdddf7be04209134fd64e66 Mon Sep 17 00:00:00 2001 From: TEC Date: Tue, 2 Mar 2021 00:12:44 +0800 Subject: [PATCH] Org: Fix logic error in eager async eval advice --- config.org | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/config.org b/config.org index c4bd55b..124558b 100644 --- a/config.org +++ b/config.org @@ -7427,11 +7427,10 @@ Not added when either: + the language is in `org-babel-async-language-blacklist'" :around #'org-babel-get-src-block-info (let ((result (funcall orig-fn light datum))) - (setq resultt result) - (when (or (not (string= "none" (cdr (assoc :session (caddr result))))) - (member (car result) org-babel-async-language-blacklist) - (assoc :async (caddr result)) ; don't duplicate - (assoc :sync (caddr result))) + (unless (or (not (string= "none" (cdr (assoc :session (caddr result))))) + (member (car result) org-babel-async-language-blacklist) + (assoc :async (caddr result)) ; don't duplicate + (assoc :sync (caddr result))) (push '(:async) (caddr result))) result)) #+end_src