Mercurial > hg > xemacs-beta

comparison src/events.c @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 489f57a838ef
children acd284d43ca1
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
231 { 231 {
232 case process_event: 232 case process_event:
233 return EQ (e1->event.process.process, e2->event.process.process); 233 return EQ (e1->event.process.process, e2->event.process.process);
234 234
235 case timeout_event: 235 case timeout_event:
236 return (!NILP (Fequal (e1->event.timeout.function, 236 return (internal_equal (e1->event.timeout.function,
237 e2->event.timeout.function)) && 237 e2->event.timeout.function, 0) &&
238 !NILP (Fequal (e1->event.timeout.object, 238 internal_equal (e1->event.timeout.object,
239 e2->event.timeout.object))); 239 e2->event.timeout.object, 0));
240 240
241 case key_press_event: 241 case key_press_event:
242 return (EQ (e1->event.key.keysym, e2->event.key.keysym) && 242 return (EQ (e1->event.key.keysym, e2->event.key.keysym) &&
243 (e1->event.key.modifiers == e2->event.key.modifiers)); 243 (e1->event.key.modifiers == e2->event.key.modifiers));
244 244
251 return (e1->event.motion.x == e2->event.motion.x && 251 return (e1->event.motion.x == e2->event.motion.x &&
252 e1->event.motion.y == e2->event.motion.y); 252 e1->event.motion.y == e2->event.motion.y);
253 253
254 case misc_user_event: 254 case misc_user_event:
255 case eval_event: 255 case eval_event:
256 return (!NILP (Fequal (e1->event.eval.function, 256 return (internal_equal (e1->event.eval.function,
257 e2->event.eval.function)) && 257 e2->event.eval.function, 0) &&
258 !NILP (Fequal (e1->event.eval.object, 258 internal_equal (e1->event.eval.object,
259 e2->event.eval.object))); 259 e2->event.eval.object, 0));
260 260
261 case magic_eval_event: 261 case magic_eval_event:
262 return (e1->event.magic_eval.internal_function == 262 return (e1->event.magic_eval.internal_function ==
263 e2->event.magic_eval.internal_function && 263 e2->event.magic_eval.internal_function &&
264 !NILP (Fequal (e1->event.magic_eval.object, 264 internal_equal (e1->event.magic_eval.object,
265 e2->event.magic_eval.object))); 265 e2->event.magic_eval.object, 0));
266 266
267 case magic_event: 267 case magic_event:
268 { 268 {
269 struct console *con = XCONSOLE (CDFW_CONSOLE (e1->channel)); 269 struct console *con = XCONSOLE (CDFW_CONSOLE (e1->channel));
270 270