diff options
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 18 |
1 files changed, 2 insertions, 16 deletions
diff --git a/src/process.c b/src/process.c index ea433d2c373..8270a57c177 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -5976,22 +5976,8 @@ SIGCODE may be an integer, or a symbol whose name is a signal name. */) | |||
| 5976 | if (NILP (process)) | 5976 | if (NILP (process)) |
| 5977 | return process; | 5977 | return process; |
| 5978 | 5978 | ||
| 5979 | if (INTEGERP (process)) | 5979 | if (NUMBERP (process)) |
| 5980 | { | 5980 | CONS_TO_INTEGER (process, pid_t, pid); |
| 5981 | EMACS_INT v = XINT (process); | ||
| 5982 | if (! (TYPE_MINIMUM (pid_t) <= v && v <= TYPE_MAXIMUM (pid_t))) | ||
| 5983 | return make_number (-1); | ||
| 5984 | pid = v; | ||
| 5985 | } | ||
| 5986 | else if (FLOATP (process)) | ||
| 5987 | { | ||
| 5988 | double v = XFLOAT_DATA (process); | ||
| 5989 | if (! (TYPE_MINIMUM (pid_t) <= v && v < TYPE_MAXIMUM (pid_t) + 1.0)) | ||
| 5990 | return make_number (-1); | ||
| 5991 | pid = v; | ||
| 5992 | if (pid != v) | ||
| 5993 | return make_number (-1); | ||
| 5994 | } | ||
| 5995 | else | 5981 | else |
| 5996 | { | 5982 | { |
| 5997 | CHECK_PROCESS (process); | 5983 | CHECK_PROCESS (process); |