summaryrefslogtreecommitdiff
path: root/test/lisp/emacs-lisp/bytecomp-resources/warn-make-process-unknown-keyword-arg.el
diff options
context:
space:
mode:
authorHelmut Eller <eller.helmut@gmail.com>2023-08-03 08:33:40 +0200
committerMattias EngdegÄrd <mattiase@acm.org>2023-08-08 18:23:00 +0200
commit3e79fd3d4e810c2ef4cf9925a747c93e036fddca (patch)
treea978150f0fbeca9823e3d89d54ea1886558cef65 /test/lisp/emacs-lisp/bytecomp-resources/warn-make-process-unknown-keyword-arg.el
parentefb3ef0fe07a1fe8c713921ceba74f476c8aa40b (diff)
downloademacs-3e79fd3d4e810c2ef4cf9925a747c93e036fddca.tar.gz
emacs-3e79fd3d4e810c2ef4cf9925a747c93e036fddca.tar.bz2
emacs-3e79fd3d4e810c2ef4cf9925a747c93e036fddca.zip
Check keyword args of make-process
The functions make-process and make-network-process have many keyword args and it's easy to misspell some of them. Use a compiler macro to warn about some possible mistakes. * lisp/emacs-lisp/bytecomp.el (bytecomp--check-keyword-args): New helper. (make-process, make-network-process): Define a compiler macro that performs some checks but doesn't anything else. * test/lisp/emacs-lisp/bytecomp-tests.el: Add some tests. * test/lisp/emacs-lisp/bytecomp-resources/: (warn-make-process-missing-keyword-arg.el, warn-make-process-missing-keyword-value.el, warn-make-process-repeated-keyword-arg.el, warn-make-process-unknown-keyword-arg.el): New test files
Diffstat (limited to 'test/lisp/emacs-lisp/bytecomp-resources/warn-make-process-unknown-keyword-arg.el')
-rw-r--r--test/lisp/emacs-lisp/bytecomp-resources/warn-make-process-unknown-keyword-arg.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-resources/warn-make-process-unknown-keyword-arg.el b/test/lisp/emacs-lisp/bytecomp-resources/warn-make-process-unknown-keyword-arg.el
new file mode 100644
index 00000000000..4721035780b
--- /dev/null
+++ b/test/lisp/emacs-lisp/bytecomp-resources/warn-make-process-unknown-keyword-arg.el
@@ -0,0 +1,4 @@
+;;; -*- lexical-binding: t -*-
+(defun foo ()
+ (make-process :name "ls" :command "ls"
+ :coding-system 'binary))