diff src/specifier.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 3ceb3622efa3
children ecf1ebac70d8
line wrap: on
line diff
--- a/src/specifier.c	Mon Sep 20 19:11:29 2004 +0000
+++ b/src/specifier.c	Mon Sep 20 19:20:08 2004 +0000
@@ -263,7 +263,8 @@
 }
 
 static void
-print_specifier (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
+print_specifier (Lisp_Object obj, Lisp_Object printcharfun,
+		 int UNUSED (escapeflag))
 {
   Lisp_Specifier *sp = XSPECIFIER (obj);
   int count = specpdl_depth ();
@@ -2186,7 +2187,7 @@
 			 enum spec_locale_type locale_type,
 			 Lisp_Object tag_set,
 			 int exact_p,
-			 void *ignored_closure)
+			 void *UNUSED (closure))
 {
   if (NILP (locale))
     specifier_remove_locale_type (specifier, locale_type, tag_set, exact_p);
@@ -2547,7 +2548,6 @@
   Lisp_Object window = Qnil;
   Lisp_Object frame = Qnil;
   Lisp_Object device = Qnil;
-  Lisp_Object tag = Qnil;	/* #### currently unused */
   Lisp_Specifier *sp = XSPECIFIER (specifier);
 
   /* Attempt to determine buffer, window, frame, and device from the
@@ -2579,7 +2579,7 @@
     device = FRAME_DEVICE (XFRAME (frame));
 
   /* device had better be determined by now; abort if not. */
-  tag = DEVICE_CLASS (XDEVICE (device));
+  (void) DEVICE_CLASS (XDEVICE (device));
 
   depth = make_int (1 + XINT (depth));
   if (XINT (depth) > 20)