Mercurial > hg > xemacs-beta

comparison src/events.c @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents e121b013d1f0
children 489f57a838ef
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
1111 */ 1111 */
1112 return make_int (((1L << (VALBITS - 1)) - 1) & 1112 return make_int (((1L << (VALBITS - 1)) - 1) &
1113 XEVENT (event)->timestamp); 1113 XEVENT (event)->timestamp);
1114 } 1114 }
1115 1115
1116 #define CHECK_EVENT_TYPE(e,t1,sym) \ 1116 #define CHECK_EVENT_TYPE(e,t1,sym) do { \
1117 { CHECK_LIVE_EVENT (e); \ 1117 CHECK_LIVE_EVENT (e); \
1118 if (XEVENT(e)->event_type != (t1)) \ 1118 if (XEVENT(e)->event_type != (t1)) \
1119 e = wrong_type_argument ((sym),(e)); \ 1119 e = wrong_type_argument ((sym),(e)); \
1120 } 1120 } while (0)
1121 1121
1122 #define CHECK_EVENT_TYPE2(e,t1,t2,sym) \ 1122 #define CHECK_EVENT_TYPE2(e,t1,t2,sym) do { \
1123 { CHECK_LIVE_EVENT (e); \ 1123 CHECK_LIVE_EVENT (e); \
1124 if (XEVENT(e)->event_type != (t1) && XEVENT(e)->event_type != (t2)) \ 1124 if (XEVENT(e)->event_type != (t1) && \
1125 e = wrong_type_argument ((sym),(e)); \ 1125 XEVENT(e)->event_type != (t2)) \
1126 } 1126 e = wrong_type_argument ((sym),(e)); \
1127 } while (0)
1127 1128
1128 DEFUN ("event-key", Fevent_key, 1, 1, 0, /* 1129 DEFUN ("event-key", Fevent_key, 1, 1, 0, /*
1129 Return the Keysym of the key-press event EVENT. 1130 Return the Keysym of the key-press event EVENT.
1130 This will be a character if the event is associated with one, else a symbol. 1131 This will be a character if the event is associated with one, else a symbol.
1131 */ 1132 */
1372 /* Why does this happen? (Does it still happen?) 1373 /* Why does this happen? (Does it still happen?)
1373 I guess the window has gotten reused as a non-leaf... */ 1374 I guess the window has gotten reused as a non-leaf... */
1374 ret_w = 0; 1375 ret_w = 0;
1375 1376
1376 /* #### pixel_to_glyph_translation() sometimes returns garbage... 1377 /* #### pixel_to_glyph_translation() sometimes returns garbage...
1377 The word has type Lisp_Record (presumably meaning `extent') but the 1378 The word has type Lisp_Type_Record (presumably meaning `extent') but the
1378 pointer points to random memory, often filled with 0, sometimes not. 1379 pointer points to random memory, often filled with 0, sometimes not.
1379 */ 1380 */
1380 /* #### Chuck, do we still need this crap? */ 1381 /* #### Chuck, do we still need this crap? */
1381 if (!NILP (ret_obj1) && !(GLYPHP (ret_obj1) 1382 if (!NILP (ret_obj1) && !(GLYPHP (ret_obj1)
1382 #ifdef HAVE_TOOLBARS 1383 #ifdef HAVE_TOOLBARS