From 41e766b449f3f5b546331b7a3c10f647ad421327 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= <mattiase@acm.org>
Date: Tue, 8 Aug 2023 18:33:50 +0200
Subject: [PATCH] Check keyword args of make-pipe-process (bug#65030)
* lisp/emacs-lisp/bytecomp.el (make-pipe-process): Add check.
---
lisp/emacs-lisp/bytecomp.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 0df7b0bfe2a..4ee9922302b 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -5831,6 +5831,13 @@ and corresponding effects."
:filter :sentinel :stderr :file-handler)
'(:name :command))))
+(put 'make-pipe-process 'compiler-macro
+ #'(lambda (form &rest args)
+ (bytecomp--check-keyword-args
+ form args
+ '(:name :buffer :coding :noquery :stop :filter :sentinel)
+ '(:name))))
+
(put 'make-network-process 'compiler-macro
#'(lambda (form &rest args)
(bytecomp--check-keyword-args
--
2.39.5