Org: Fix logic error in eager async eval advice
This commit is contained in:
parent
32a7cff117
commit
a6bcde3d60
|
@ -7427,8 +7427,7 @@ Not added when either:
|
||||||
+ the language is in `org-babel-async-language-blacklist'"
|
+ the language is in `org-babel-async-language-blacklist'"
|
||||||
:around #'org-babel-get-src-block-info
|
:around #'org-babel-get-src-block-info
|
||||||
(let ((result (funcall orig-fn light datum)))
|
(let ((result (funcall orig-fn light datum)))
|
||||||
(setq resultt result)
|
(unless (or (not (string= "none" (cdr (assoc :session (caddr result)))))
|
||||||
(when (or (not (string= "none" (cdr (assoc :session (caddr result)))))
|
|
||||||
(member (car result) org-babel-async-language-blacklist)
|
(member (car result) org-babel-async-language-blacklist)
|
||||||
(assoc :async (caddr result)) ; don't duplicate
|
(assoc :async (caddr result)) ; don't duplicate
|
||||||
(assoc :sync (caddr result)))
|
(assoc :sync (caddr result)))
|
||||||
|
|
Loading…
Reference in a new issue