Mercurial > hg > xemacs-beta

comparison src/tooltalk.c @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 538048ae2ab8
children 8eaf7971accc
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
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>", p->m, p->header.uid); 180 sprintf (buf, "#<tooltalk_message id:%p 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>", p->p, p->header.uid); 256 sprintf (buf, "#<tooltalk_pattern id:%p 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)