aboutsummaryrefslogtreecommitdiffstats
path: root/src/kqueue.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/kqueue.c')
-rw-r--r--src/kqueue.c6
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