Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children 623d57b7fbe8
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
453 if (builder->echo_buf) 453 if (builder->echo_buf)
454 { 454 {
455 xfree (builder->echo_buf, Ibyte *); 455 xfree (builder->echo_buf, Ibyte *);
456 builder->echo_buf = NULL; 456 builder->echo_buf = NULL;
457 } 457 }
458 FREE_LCRECORD (wrap_command_builder (builder)); 458 FREE_LISP_OBJECT (wrap_command_builder (builder));
459 } 459 }
460 460
461 static void 461 static void
462 command_builder_append_event (struct command_builder *builder, 462 command_builder_append_event (struct command_builder *builder,
463 Lisp_Object event) 463 Lisp_Object event)
1161 is to move frequently-hit timeouts to the front of the 1161 is to move frequently-hit timeouts to the front of the
1162 list, which is a good thing. */ 1162 list, which is a good thing. */
1163 *timeout_list = noseeum_cons (op, *timeout_list); 1163 *timeout_list = noseeum_cons (op, *timeout_list);
1164 } 1164 }
1165 else 1165 else
1166 FREE_LCRECORD (op); 1166 FREE_LISP_OBJECT (op);
1167 1167
1168 UNGCPRO; 1168 UNGCPRO;
1169 return id; 1169 return id;
1170 } 1170 }
1171 1171
1198 delq_no_quit_and_free_cons (op, *timeout_list); 1198 delq_no_quit_and_free_cons (op, *timeout_list);
1199 if (async_p) 1199 if (async_p)
1200 signal_remove_async_interval_timeout (timeout->interval_id); 1200 signal_remove_async_interval_timeout (timeout->interval_id);
1201 else 1201 else
1202 event_stream_remove_timeout (timeout->interval_id); 1202 event_stream_remove_timeout (timeout->interval_id);
1203 FREE_LCRECORD (op); 1203 FREE_LISP_OBJECT (op);
1204 } 1204 }
1205 } 1205 }
1206 1206
1207 static int 1207 static int
1208 event_stream_wakeup_pending_p (int id, int async_p) 1208 event_stream_wakeup_pending_p (int id, int async_p)