diff options
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/process.c b/src/process.c index cd1149ae8b0..275e86f31d0 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -1822,6 +1822,7 @@ usage: (make-process &rest ARGS) */) | |||
| 1822 | 1822 | ||
| 1823 | if (nargs == 0) | 1823 | if (nargs == 0) |
| 1824 | return Qnil; | 1824 | return Qnil; |
| 1825 | CHECK_KEYWORD_ARGS (nargs); | ||
| 1825 | 1826 | ||
| 1826 | /* Save arguments for process-contact and clone-process. */ | 1827 | /* Save arguments for process-contact and clone-process. */ |
| 1827 | contact = Flist (nargs, args); | 1828 | contact = Flist (nargs, args); |
| @@ -2431,6 +2432,7 @@ usage: (make-pipe-process &rest ARGS) */) | |||
| 2431 | 2432 | ||
| 2432 | if (nargs == 0) | 2433 | if (nargs == 0) |
| 2433 | return Qnil; | 2434 | return Qnil; |
| 2435 | CHECK_KEYWORD_ARGS (nargs); | ||
| 2434 | 2436 | ||
| 2435 | contact = Flist (nargs, args); | 2437 | contact = Flist (nargs, args); |
| 2436 | 2438 | ||
| @@ -3066,6 +3068,8 @@ usage: (serial-process-configure &rest ARGS) */) | |||
| 3066 | Lisp_Object contact = Qnil; | 3068 | Lisp_Object contact = Qnil; |
| 3067 | Lisp_Object proc = Qnil; | 3069 | Lisp_Object proc = Qnil; |
| 3068 | 3070 | ||
| 3071 | CHECK_KEYWORD_ARGS (nargs); | ||
| 3072 | |||
| 3069 | contact = Flist (nargs, args); | 3073 | contact = Flist (nargs, args); |
| 3070 | 3074 | ||
| 3071 | proc = plist_get (contact, QCprocess); | 3075 | proc = plist_get (contact, QCprocess); |
| @@ -3170,6 +3174,7 @@ usage: (make-serial-process &rest ARGS) */) | |||
| 3170 | 3174 | ||
| 3171 | if (nargs == 0) | 3175 | if (nargs == 0) |
| 3172 | return Qnil; | 3176 | return Qnil; |
| 3177 | CHECK_KEYWORD_ARGS (nargs); | ||
| 3173 | 3178 | ||
| 3174 | contact = Flist (nargs, args); | 3179 | contact = Flist (nargs, args); |
| 3175 | 3180 | ||
| @@ -3971,6 +3976,7 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3971 | 3976 | ||
| 3972 | if (nargs == 0) | 3977 | if (nargs == 0) |
| 3973 | return Qnil; | 3978 | return Qnil; |
| 3979 | CHECK_KEYWORD_ARGS (nargs); | ||
| 3974 | 3980 | ||
| 3975 | /* Save arguments for process-contact and clone-process. */ | 3981 | /* Save arguments for process-contact and clone-process. */ |
| 3976 | contact = Flist (nargs, args); | 3982 | contact = Flist (nargs, args); |