Check keyword args of make-pipe-process (bug#65030)

* lisp/emacs-lisp/bytecomp.el (make-pipe-process): Add check.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 0df7b0bfe2a4c573f2d9c262184355cb32a2501e..4ee9922302b4686c539a87577a743882b97faf42 100644 (file)
--- 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