Mercurial > hg > xemacs-beta

comparison src/events.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 fd0cbe945410
children 91a83e231f92
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
309 write_eistring (printcharfun, ei); 309 write_eistring (printcharfun, ei);
310 eifree (ei); 310 eifree (ei);
311 } 311 }
312 312
313 static void 313 static void
314 print_event (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 314 print_event (Lisp_Object obj, Lisp_Object printcharfun,
315 int UNUSED (escapeflag))
315 { 316 {
316 if (print_readably) 317 if (print_readably)
317 printing_unreadable_object ("#<event>"); 318 printing_unreadable_object ("#<event>");
318 319
319 switch (XEVENT (obj)->event_type) 320 switch (XEVENT (obj)->event_type)
374 } 375 }
375 write_c_string (printcharfun, ">"); 376 write_c_string (printcharfun, ">");
376 } 377 }
377 378
378 static int 379 static int
379 event_equal (Lisp_Object obj1, Lisp_Object obj2, int depth) 380 event_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth))
380 { 381 {
381 Lisp_Event *e1 = XEVENT (obj1); 382 Lisp_Event *e1 = XEVENT (obj1);
382 Lisp_Event *e2 = XEVENT (obj2); 383 Lisp_Event *e2 = XEVENT (obj2);
383 384
384 if (e1->event_type != e2->event_type) return 0; 385 if (e1->event_type != e2->event_type) return 0;