Mercurial > hg > xemacs-beta

comparison src/tooltalk.c @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents fe104dbd9147
children 538048ae2ab8
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
175 175
176 if (print_readably) 176 if (print_readably)
177 error ("printing unreadable object #<tooltalk_message 0x%x>", 177 error ("printing unreadable object #<tooltalk_message 0x%x>",
178 p->header.uid); 178 p->header.uid);
179 179
180 sprintf (buf, "#<tooltalk_message id:%d 0x%x>", (int) p->m, p->header.uid); 180 sprintf (buf, "#<tooltalk_message id:%d 0x%x>", p->m, p->header.uid);
181 write_c_string (buf, printcharfun); 181 write_c_string (buf, printcharfun);
182 } 182 }
183 183
184 static Lisp_Object 184 static Lisp_Object
185 make_tooltalk_message (Tt_message m) 185 make_tooltalk_message (Tt_message m)
251 251
252 if (print_readably) 252 if (print_readably)
253 error ("printing unreadable object #<tooltalk_pattern 0x%x>", 253 error ("printing unreadable object #<tooltalk_pattern 0x%x>",
254 p->header.uid); 254 p->header.uid);
255 255
256 sprintf (buf, "#<tooltalk_pattern id:%d 0x%x>", (int) p->p, p->header.uid); 256 sprintf (buf, "#<tooltalk_pattern id:%d 0x%x>", p->p, p->header.uid);
257 write_c_string (buf, printcharfun); 257 write_c_string (buf, printcharfun);
258 } 258 }
259 259
260 static Lisp_Object 260 static Lisp_Object
261 make_tooltalk_pattern (Tt_pattern p) 261 make_tooltalk_pattern (Tt_pattern p)