From 40d1352b29944607011d6b0d241726d634d404c4 Mon Sep 17 00:00:00 2001
From: Ihor Radchenko <yantar92@posteo.net>
Date: Thu, 1 Feb 2024 16:14:43 +0100
Subject: [PATCH] org-babel: Declare :async header argument in the backends
 that support it

* lisp/ob-R.el (org-babel-header-args:R):
* lisp/ob-python.el (org-babel-header-args:python): Declare async
header argument.
* lisp/ob-shell.el (org-babel-header-args:shell): Add variable.
(org-babel-shell-initialize): Propagate base
`org-babel-header-args:shell' to `org-babel-header-args:<shell-name>'.

Without declaration, org-lint would not recognize :async argument.
---
 lisp/ob-R.el      | 1 +
 lisp/ob-python.el | 3 ++-
 lisp/ob-shell.el  | 8 ++++++++
 3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-R.el b/lisp/ob-R.el
index f0d762dec..f365a68da 100644
--- a/lisp/ob-R.el
+++ b/lisp/ob-R.el
@@ -64,6 +64,7 @@
     (colormodel		 . :any)
     (useDingbats	 . :any)
     (horizontal		 . :any)
+    (async               . ((yes no)))
     (results             . ((file list vector table scalar verbatim)
 			    (raw html latex org code pp drawer)
 			    (replace silent none append prepend)
diff --git a/lisp/ob-python.el b/lisp/ob-python.el
index 2f62d7353..cfc0fdcb6 100644
--- a/lisp/ob-python.el
+++ b/lisp/ob-python.el
@@ -43,7 +43,8 @@
 
 (defconst org-babel-header-args:python
   '((return . :any)
-    (python . :any))
+    (python . :any)
+    (async . ((yes no))))
   "Python-specific header arguments.")
 
 (defcustom org-babel-python-command 'auto
diff --git a/lisp/ob-shell.el b/lisp/ob-shell.el
index 31135b5fb..e3633cb61 100644
--- a/lisp/ob-shell.el
+++ b/lisp/ob-shell.el
@@ -45,6 +45,11 @@
 (declare-function orgtbl-to-generic "org-table" (table params))
 
 (defvar org-babel-default-header-args:shell '())
+
+(defconst org-babel-header-args:shell
+  '((async               . ((yes no))))
+  "Shell-specific header arguments.")
+
 (defvar org-babel-shell-names)
 
 (defconst org-babel-shell-set-prompt-commands
@@ -86,6 +91,9 @@ variables."
 	      name))
     (funcall (if (fboundp 'defvar-1) #'defvar-1 #'set) ;Emacs-29
              (intern (concat "org-babel-default-header-args:" name))
+             nil)
+    (funcall (if (fboundp 'defvar-1) #'defvar-1 #'set) ;Emacs-29
+             (intern (concat "org-babel-header-args:" name))
              nil)))
 
 (defcustom org-babel-shell-names