(init_sys_modes): Make gpm_fd nonblocking

[bpt/emacs.git] / src / sysdep.c

diff --git a/src/sysdep.c b/src/sysdep.c
index 27e9034..5dd7769 100644 (file)
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -1675,6 +1675,14 @@ init_sys_modes ()
       old_fcntl_owner = fcntl (input_fd, F_GETOWN, 0);
       fcntl (input_fd, F_SETOWN, getpid ());
       init_sigio (input_fd);
+#ifdef HAVE_GPM_H
+      if (term_gpm)
+       {
+         fcntl (gpm_fd, F_SETOWN, getpid ());
+         fcntl (gpm_fd, F_SETFL, O_NONBLOCK);
+         init_sigio (gpm_fd);
+       }
+#endif /* HAVE_GPM_H */
     }
 #endif /* F_GETOWN */
 #endif /* F_SETOWN_BUG */