Mercurial > hg > xemacs-beta
diff src/print.c @ 2286:04bc9d2f42c7
[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 | cc5b615380f8 |
| children | ecf1ebac70d8 |
line wrap: on
line diff
--- a/src/print.c Mon Sep 20 19:11:29 2004 +0000 +++ b/src/print.c Mon Sep 20 19:20:08 2004 +0000 @@ -1438,7 +1438,7 @@ static void default_object_printer (Lisp_Object obj, Lisp_Object printcharfun, - int escapeflag) + int UNUSED (escapeflag)) { struct lcrecord_header *header = (struct lcrecord_header *) XPNTR (obj); @@ -1456,7 +1456,7 @@ void internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun, - int escapeflag) + int UNUSED (escapeflag)) { write_fmt_string (printcharfun, "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%lx>", @@ -1746,7 +1746,8 @@ } void -print_float (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) +print_float (Lisp_Object obj, Lisp_Object printcharfun, + int UNUSED (escapeflag)) { char pigbuf[350]; /* see comments in float_to_string */ @@ -2057,7 +2058,7 @@ avoid consing in debug_prin1. That is verboten, since debug_prin1 can be called by cons debugging code. */ static Lisp_Object -debug_prin1_exit (Lisp_Object ignored UNUSED_ARG) +debug_prin1_exit (Lisp_Object UNUSED (ignored)) { struct debug_bindings *bindings = (struct debug_bindings *) XOPAQUE (debug_prin1_bindings)->data;