Mercurial > hg > xemacs-beta

comparison src/print.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 cc5b615380f8
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
1436 UNGCPRO; 1436 UNGCPRO;
1437 } 1437 }
1438 1438
1439 static void 1439 static void
1440 default_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 1440 default_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
1441 int escapeflag) 1441 int UNUSED (escapeflag))
1442 { 1442 {
1443 struct lcrecord_header *header = 1443 struct lcrecord_header *header =
1444 (struct lcrecord_header *) XPNTR (obj); 1444 (struct lcrecord_header *) XPNTR (obj);
1445 1445
1446 if (print_readably) 1446 if (print_readably)
1454 header->uid); 1454 header->uid);
1455 } 1455 }
1456 1456
1457 void 1457 void
1458 internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 1458 internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
1459 int escapeflag) 1459 int UNUSED (escapeflag))
1460 { 1460 {
1461 write_fmt_string (printcharfun, 1461 write_fmt_string (printcharfun,
1462 "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%lx>", 1462 "#<INTERNAL OBJECT (XEmacs bug?) (%s) 0x%lx>",
1463 XRECORD_LHEADER_IMPLEMENTATION (obj)->name, 1463 XRECORD_LHEADER_IMPLEMENTATION (obj)->name,
1464 (unsigned long) XPNTR (obj)); 1464 (unsigned long) XPNTR (obj));
1744 unbind_to (specdepth); 1744 unbind_to (specdepth);
1745 UNGCPRO; 1745 UNGCPRO;
1746 } 1746 }
1747 1747
1748 void 1748 void
1749 print_float (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 1749 print_float (Lisp_Object obj, Lisp_Object printcharfun,
1750 int UNUSED (escapeflag))
1750 { 1751 {
1751 char pigbuf[350]; /* see comments in float_to_string */ 1752 char pigbuf[350]; /* see comments in float_to_string */
1752 1753
1753 float_to_string (pigbuf, XFLOAT_DATA (obj)); 1754 float_to_string (pigbuf, XFLOAT_DATA (obj));
1754 write_c_string (printcharfun, pigbuf); 1755 write_c_string (printcharfun, pigbuf);
2055 2056
2056 /* Restore values temporarily bound by debug_prin1. We use this approach to 2057 /* Restore values temporarily bound by debug_prin1. We use this approach to
2057 avoid consing in debug_prin1. That is verboten, since debug_prin1 can be 2058 avoid consing in debug_prin1. That is verboten, since debug_prin1 can be
2058 called by cons debugging code. */ 2059 called by cons debugging code. */
2059 static Lisp_Object 2060 static Lisp_Object
2060 debug_prin1_exit (Lisp_Object ignored UNUSED_ARG) 2061 debug_prin1_exit (Lisp_Object UNUSED (ignored))
2061 { 2062 {
2062 struct debug_bindings *bindings = 2063 struct debug_bindings *bindings =
2063 (struct debug_bindings *) XOPAQUE (debug_prin1_bindings)->data; 2064 (struct debug_bindings *) XOPAQUE (debug_prin1_bindings)->data;
2064 inhibit_non_essential_printing_operations = 2065 inhibit_non_essential_printing_operations =
2065 bindings->inhibit_non_essential_printing_operations; 2066 bindings->inhibit_non_essential_printing_operations;