Mercurial > hg > xemacs-beta

comparison src/event-unixoid.c @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 376386a54a3c
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
37 37
38 #include "sysdep.h" 38 #include "sysdep.h"
39 #include "sysproc.h" /* select stuff */ 39 #include "sysproc.h" /* select stuff */
40 #include "systime.h" 40 #include "systime.h"
41 41
42 #ifdef HAVE_GPM
43 #include "gpmevent.h"
44 #include <gpm.h>
45 #endif
46
42 /* Mask of bits indicating the descriptors that we wait for input on. 47 /* Mask of bits indicating the descriptors that we wait for input on.
43 These work as follows: 48 These work as follows:
44 49
45 input_wait_mask == mask of all file descriptors we select() on, 50 input_wait_mask == mask of all file descriptors we select() on,
46 including TTY/stream console descriptors, 51 including TTY/stream console descriptors,
75 unsigned char ch; 80 unsigned char ch;
76 int nread; 81 int nread;
77 Lisp_Object console = Qnil; 82 Lisp_Object console = Qnil;
78 83
79 XSETCONSOLE (console, con); 84 XSETCONSOLE (console, con);
85
86 #ifdef HAVE_GPM
87 if (fd == CONSOLE_TTY_MOUSE_FD (con)) {
88 return (handle_gpm_read (event,con,fd));
89 }
90 #endif
80 91
81 nread = read (fd, &ch, 1); 92 nread = read (fd, &ch, 1);
82 if (nread <= 0) 93 if (nread <= 0)
83 { 94 {
84 /* deleting the console might not be safe right now ... */ 95 /* deleting the console might not be safe right now ... */