Mercurial > hg > xemacs-beta

diff src/objects-tty.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 a8d8f419b459
children ecf1ebac70d8
line wrap: on
line diff
--- a/src/objects-tty.c	Mon Sep 20 19:11:29 2004 +0000
+++ b/src/objects-tty.c	Mon Sep 20 19:20:08 2004 +0000
@@ -160,7 +160,8 @@
 
 static int
 tty_initialize_color_instance (Lisp_Color_Instance *c, Lisp_Object name,
-			       Lisp_Object device, Error_Behavior errb)
+			       Lisp_Object UNUSED (device),
+			       Error_Behavior UNUSED (errb))
 {
   Lisp_Object result;
 
@@ -190,9 +191,9 @@
 }
 
 static void
-tty_print_color_instance (Lisp_Color_Instance *c,
-			  Lisp_Object printcharfun,
-			  int escapeflag)
+tty_print_color_instance (Lisp_Color_Instance *UNUSED (c),
+			  Lisp_Object UNUSED (printcharfun),
+			  int UNUSED (escapeflag))
 {
 }
 
@@ -206,20 +207,20 @@
 static int
 tty_color_instance_equal (Lisp_Color_Instance *c1,
 			  Lisp_Color_Instance *c2,
-			  int depth)
+			  int UNUSED (depth))
 {
   return (EQ (COLOR_INSTANCE_TTY_SYMBOL (c1),
 	      COLOR_INSTANCE_TTY_SYMBOL (c2)));
 }
 
 static unsigned long
-tty_color_instance_hash (Lisp_Color_Instance *c, int depth)
+tty_color_instance_hash (Lisp_Color_Instance *c, int UNUSED (depth))
 {
   return LISP_HASH (COLOR_INSTANCE_TTY_SYMBOL (c));
 }
 
 static int
-tty_valid_color_name_p (struct device *d, Lisp_Object color)
+tty_valid_color_name_p (struct device *UNUSED (d), Lisp_Object color)
 {
   return (!NILP (assoc_no_quit (Fintern (color, Qnil), Vtty_color_alist)));
 #if 0
@@ -231,7 +232,8 @@
 
 static int
 tty_initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object name,
-			      Lisp_Object device, Error_Behavior errb)
+			      Lisp_Object UNUSED (device),
+			      Error_Behavior UNUSED (errb))
 {
   Ibyte *str = XSTRING_DATA (name);
   Lisp_Object charset = Qnil;
@@ -277,9 +279,9 @@
 }
 
 static void
-tty_print_font_instance (Lisp_Font_Instance *f,
-			 Lisp_Object printcharfun,
-			 int escapeflag)
+tty_print_font_instance (Lisp_Font_Instance *UNUSED (f),
+			 Lisp_Object UNUSED (printcharfun),
+			 int UNUSED (escapeflag))
 {
 }
 
@@ -291,7 +293,8 @@
 }
 
 static Lisp_Object
-tty_list_fonts (Lisp_Object pattern, Lisp_Object device, Lisp_Object maxnumber)
+tty_list_fonts (Lisp_Object UNUSED (pattern), Lisp_Object UNUSED (device),
+		Lisp_Object UNUSED (maxnumber))
 {
   return list1 (build_string ("normal"));
 }
@@ -299,7 +302,7 @@
 #ifdef MULE
 
 static int
-tty_font_spec_matches_charset (struct device *d, Lisp_Object charset,
+tty_font_spec_matches_charset (struct device *UNUSED (d), Lisp_Object charset,
 			       const Ibyte *nonreloc, Lisp_Object reloc,
 			       Bytecount offset, Bytecount length,
 			       int stage)