Mercurial > hg > xemacs-beta

comparison src/tooltalk.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents e22b0213b713
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
165 return XTOOLTALK_MESSAGE (obj)->plist_sym; 165 return XTOOLTALK_MESSAGE (obj)->plist_sym;
166 } 166 }
167 167
168 static void 168 static void
169 print_tooltalk_message (Lisp_Object obj, Lisp_Object printcharfun, 169 print_tooltalk_message (Lisp_Object obj, Lisp_Object printcharfun,
170 int escapeflag) 170 int UNUSED (escapeflag))
171 { 171 {
172 Lisp_Tooltalk_Message *p = XTOOLTALK_MESSAGE (obj); 172 Lisp_Tooltalk_Message *p = XTOOLTALK_MESSAGE (obj);
173 173
174 if (print_readably) 174 if (print_readably)
175 printing_unreadable_object ("#<tooltalk_message 0x%x>", 175 printing_unreadable_object ("#<tooltalk_message 0x%x>",
243 return XTOOLTALK_PATTERN (obj)->plist_sym; 243 return XTOOLTALK_PATTERN (obj)->plist_sym;
244 } 244 }
245 245
246 static void 246 static void
247 print_tooltalk_pattern (Lisp_Object obj, Lisp_Object printcharfun, 247 print_tooltalk_pattern (Lisp_Object obj, Lisp_Object printcharfun,
248 int escapeflag) 248 int UNUSED (escapeflag))
249 { 249 {
250 Lisp_Tooltalk_Pattern *p = XTOOLTALK_PATTERN (obj); 250 Lisp_Tooltalk_Pattern *p = XTOOLTALK_PATTERN (obj);
251 251
252 if (print_readably) 252 if (print_readably)
253 printing_unreadable_object ("#<tooltalk_pattern 0x%x>", 253 printing_unreadable_object ("#<tooltalk_pattern 0x%x>",
321 321
322 DEFUN ("receive-tooltalk-message", Freceive_tooltalk_message, 0, 2, 0, /* 322 DEFUN ("receive-tooltalk-message", Freceive_tooltalk_message, 0, 2, 0, /*
323 Run tt_message_receive(). 323 Run tt_message_receive().
324 This function is the process handler for the ToolTalk connection process. 324 This function is the process handler for the ToolTalk connection process.
325 */ 325 */
326 (ignore1, ignore2)) 326 (UNUSED (ignore1), UNUSED (ignore2)))
327 { 327 {
328 /* This function can GC */ 328 /* This function can GC */
329 Tt_message mess = tt_message_receive (); 329 Tt_message mess = tt_message_receive ();
330 Lisp_Object message_ = make_tooltalk_message (mess); 330 Lisp_Object message_ = make_tooltalk_message (mess);
331 struct gcpro gcpro1; 331 struct gcpro gcpro1;