Mercurial > hg > xemacs-beta

comparison src/events.c @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children 78f53ef88e17
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
296 #ifdef HAVE_TTY 296 #ifdef HAVE_TTY
297 if (CONSOLE_TTY_P (con)) 297 if (CONSOLE_TTY_P (con))
298 return (e1->event.magic.underlying_tty_event == 298 return (e1->event.magic.underlying_tty_event ==
299 e2->event.magic.underlying_tty_event); 299 e2->event.magic.underlying_tty_event);
300 #endif 300 #endif
301 #ifdef HAVE_W32GUI
302 if (CONSOLE_W32_P (con))
303 return (!memcmp(&e1->event.magic.underlying_w32_event,
304 &e2->event.magic.underlying_w32_event,
305 sizeof(union magic_data)));
306 #endif
301 return 1; /* not reached */ 307 return 1; /* not reached */
302 } 308 }
303 309
304 case empty_event: /* Empty and deallocated events are equal. */ 310 case empty_event: /* Empty and deallocated events are equal. */
305 case dead_event: 311 case dead_event:
362 return HASH2 (hash, e->event.magic.underlying_x_event.xany.serial); 368 return HASH2 (hash, e->event.magic.underlying_x_event.xany.serial);
363 #endif 369 #endif
364 #ifdef HAVE_TTY 370 #ifdef HAVE_TTY
365 if (CONSOLE_TTY_P (con)) 371 if (CONSOLE_TTY_P (con))
366 return HASH2 (hash, e->event.magic.underlying_tty_event); 372 return HASH2 (hash, e->event.magic.underlying_tty_event);
373 #endif
374 #ifdef HAVE_W32GUI
375 if (CONSOLE_W32_P (con))
376 return HASH6 (hash, e->event.magic.underlying_w32_event.message,
377 e->event.magic.underlying_w32_event.data[0],
378 e->event.magic.underlying_w32_event.data[1],
379 e->event.magic.underlying_w32_event.data[2],
380 e->event.magic.underlying_w32_event.data[3],
381 );
367 #endif 382 #endif
368 } 383 }
369 384
370 case empty_event: 385 case empty_event:
371 case dead_event: 386 case dead_event:
1787 `generated-modeline-string' in order to get accurate results. 1802 `generated-modeline-string' in order to get accurate results.
1788 */ 1803 */
1789 (event)) 1804 (event))
1790 { 1805 {
1791 Charcount mbufp; 1806 Charcount mbufp;
1792 1807 int where;
1793 event_pixel_translation (event, 0, 0, 0, 0, 0, 0, 0, &mbufp, 0, 0); 1808
1794 1809 where = event_pixel_translation (event, 0, 0, 0, 0, 0, 0, 0, &mbufp, 0, 0);
1795 return mbufp < 0 ? Qnil : make_int (mbufp); 1810
1811 return (mbufp < 0 || where != OVER_MODELINE) ? Qnil : make_int (mbufp);
1796 } 1812 }
1797 1813
1798 DEFUN ("event-glyph", Fevent_glyph, 1, 1, 0, /* 1814 DEFUN ("event-glyph", Fevent_glyph, 1, 1, 0, /*
1799 Return the glyph that the mouse event EVENT occurred over, or nil. 1815 Return the glyph that the mouse event EVENT occurred over, or nil.
1800 */ 1816 */