diff options
Diffstat (limited to 'src/kqueue.c')
| -rw-r--r-- | src/kqueue.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/kqueue.c b/src/kqueue.c index b45c316b93b..bc01ab5062c 100644 --- a/src/kqueue.c +++ b/src/kqueue.c | |||
| @@ -234,7 +234,7 @@ kqueue_compare_dir_list (Lisp_Object watch_object) | |||
| 234 | 234 | ||
| 235 | /* Check size of that file. */ | 235 | /* Check size of that file. */ |
| 236 | Lisp_Object size = Fnth (make_fixnum (4), entry); | 236 | Lisp_Object size = Fnth (make_fixnum (4), entry); |
| 237 | if (FLOATP (size) || (XINT (size) > 0)) | 237 | if (FLOATP (size) || (XFIXNUM (size) > 0)) |
| 238 | kqueue_generate_event | 238 | kqueue_generate_event |
| 239 | (watch_object, Fcons (Qwrite, Qnil), XCAR (XCDR (entry)), Qnil); | 239 | (watch_object, Fcons (Qwrite, Qnil), XCAR (XCDR (entry)), Qnil); |
| 240 | 240 | ||
| @@ -395,7 +395,7 @@ only when the upper directory of the renamed file is watched. */) | |||
| 395 | maxfd = 256; | 395 | maxfd = 256; |
| 396 | 396 | ||
| 397 | /* We assume 50 file descriptors are sufficient for the rest of Emacs. */ | 397 | /* We assume 50 file descriptors are sufficient for the rest of Emacs. */ |
| 398 | if ((maxfd - 50) < XINT (Flength (watch_list))) | 398 | if ((maxfd - 50) < XFIXNUM (Flength (watch_list))) |
| 399 | xsignal2 | 399 | xsignal2 |
| 400 | (Qfile_notify_error, | 400 | (Qfile_notify_error, |
| 401 | build_string ("File watching not possible, no file descriptor left"), | 401 | build_string ("File watching not possible, no file descriptor left"), |
| @@ -474,7 +474,7 @@ WATCH-DESCRIPTOR should be an object returned by `kqueue-add-watch'. */) | |||
| 474 | watch_descriptor); | 474 | watch_descriptor); |
| 475 | 475 | ||
| 476 | eassert (FIXNUMP (watch_descriptor)); | 476 | eassert (FIXNUMP (watch_descriptor)); |
| 477 | int fd = XINT (watch_descriptor); | 477 | int fd = XFIXNUM (watch_descriptor); |
| 478 | if ( fd >= 0) | 478 | if ( fd >= 0) |
| 479 | emacs_close (fd); | 479 | emacs_close (fd); |
| 480 | 480 | ||