Mercurial > hg > xemacs-beta

comparison src/tooltalk.c @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 41dbb7a9d5f2
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
149 Lisp_Object plist_sym, callback; 149 Lisp_Object plist_sym, callback;
150 Tt_message m; 150 Tt_message m;
151 }; 151 };
152 152
153 static Lisp_Object 153 static Lisp_Object
154 mark_tooltalk_message (Lisp_Object obj, void (*markobj) (Lisp_Object)) 154 mark_tooltalk_message (Lisp_Object obj)
155 { 155 {
156 markobj (XTOOLTALK_MESSAGE (obj)->callback); 156 mark_object (XTOOLTALK_MESSAGE (obj)->callback);
157 return XTOOLTALK_MESSAGE (obj)->plist_sym; 157 return XTOOLTALK_MESSAGE (obj)->plist_sym;
158 } 158 }
159 159
160 static void 160 static void
161 print_tooltalk_message (Lisp_Object obj, Lisp_Object printcharfun, 161 print_tooltalk_message (Lisp_Object obj, Lisp_Object printcharfun,
223 Lisp_Object plist_sym, callback; 223 Lisp_Object plist_sym, callback;
224 Tt_pattern p; 224 Tt_pattern p;
225 }; 225 };
226 226
227 static Lisp_Object 227 static Lisp_Object
228 mark_tooltalk_pattern (Lisp_Object obj, void (*markobj) (Lisp_Object)) 228 mark_tooltalk_pattern (Lisp_Object obj)
229 { 229 {
230 markobj (XTOOLTALK_PATTERN (obj)->callback); 230 mark_object (XTOOLTALK_PATTERN (obj)->callback);
231 return XTOOLTALK_PATTERN (obj)->plist_sym; 231 return XTOOLTALK_PATTERN (obj)->plist_sym;
232 } 232 }
233 233
234 static void 234 static void
235 print_tooltalk_pattern (Lisp_Object obj, Lisp_Object printcharfun, 235 print_tooltalk_pattern (Lisp_Object obj, Lisp_Object printcharfun,