From: Mattias Engdegård <mattiase@acm.org>
Date: Tue, 8 Aug 2023 16:33:50 +0000 (+0200)
Subject: Check keyword args of make-pipe-process (bug#65030)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41e766b449f3f5b546331b7a3c10f647ad421327;p=emacs.git

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 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