Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
158 158
159 #endif /* 0 */ 159 #endif /* 0 */
160 160
161 static int 161 static int
162 tty_initialize_color_instance (Lisp_Color_Instance *c, Lisp_Object name, 162 tty_initialize_color_instance (Lisp_Color_Instance *c, Lisp_Object name,
163 Lisp_Object device, Error_Behavior errb) 163 Lisp_Object UNUSED (device),
164 Error_Behavior UNUSED (errb))
164 { 165 {
165 Lisp_Object result; 166 Lisp_Object result;
166 167
167 name = Fintern (name, Qnil); 168 name = Fintern (name, Qnil);
168 result = assq_no_quit (name, Vtty_color_alist); 169 result = assq_no_quit (name, Vtty_color_alist);
188 { 189 {
189 mark_object (COLOR_INSTANCE_TTY_SYMBOL (c)); 190 mark_object (COLOR_INSTANCE_TTY_SYMBOL (c));
190 } 191 }
191 192
192 static void 193 static void
193 tty_print_color_instance (Lisp_Color_Instance *c, 194 tty_print_color_instance (Lisp_Color_Instance *UNUSED (c),
194 Lisp_Object printcharfun, 195 Lisp_Object UNUSED (printcharfun),
195 int escapeflag) 196 int UNUSED (escapeflag))
196 { 197 {
197 } 198 }
198 199
199 static void 200 static void
200 tty_finalize_color_instance (Lisp_Color_Instance *c) 201 tty_finalize_color_instance (Lisp_Color_Instance *c)
204 } 205 }
205 206
206 static int 207 static int
207 tty_color_instance_equal (Lisp_Color_Instance *c1, 208 tty_color_instance_equal (Lisp_Color_Instance *c1,
208 Lisp_Color_Instance *c2, 209 Lisp_Color_Instance *c2,
209 int depth) 210 int UNUSED (depth))
210 { 211 {
211 return (EQ (COLOR_INSTANCE_TTY_SYMBOL (c1), 212 return (EQ (COLOR_INSTANCE_TTY_SYMBOL (c1),
212 COLOR_INSTANCE_TTY_SYMBOL (c2))); 213 COLOR_INSTANCE_TTY_SYMBOL (c2)));
213 } 214 }
214 215
215 static unsigned long 216 static unsigned long
216 tty_color_instance_hash (Lisp_Color_Instance *c, int depth) 217 tty_color_instance_hash (Lisp_Color_Instance *c, int UNUSED (depth))
217 { 218 {
218 return LISP_HASH (COLOR_INSTANCE_TTY_SYMBOL (c)); 219 return LISP_HASH (COLOR_INSTANCE_TTY_SYMBOL (c));
219 } 220 }
220 221
221 static int 222 static int
222 tty_valid_color_name_p (struct device *d, Lisp_Object color) 223 tty_valid_color_name_p (struct device *UNUSED (d), Lisp_Object color)
223 { 224 {
224 return (!NILP (assoc_no_quit (Fintern (color, Qnil), Vtty_color_alist))); 225 return (!NILP (assoc_no_quit (Fintern (color, Qnil), Vtty_color_alist)));
225 #if 0 226 #if 0
226 || STRINGP (Vtty_dynamic_color_fg) 227 || STRINGP (Vtty_dynamic_color_fg)
227 || STRINGP (Vtty_dynamic_color_bg) 228 || STRINGP (Vtty_dynamic_color_bg)
229 } 230 }
230 231
231 232
232 static int 233 static int
233 tty_initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object name, 234 tty_initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object name,
234 Lisp_Object device, Error_Behavior errb) 235 Lisp_Object UNUSED (device),
236 Error_Behavior UNUSED (errb))
235 { 237 {
236 Ibyte *str = XSTRING_DATA (name); 238 Ibyte *str = XSTRING_DATA (name);
237 Lisp_Object charset = Qnil; 239 Lisp_Object charset = Qnil;
238 240
239 if (qxestrncmp_c (str, "normal", 6)) 241 if (qxestrncmp_c (str, "normal", 6))
275 { 277 {
276 mark_object (FONT_INSTANCE_TTY_CHARSET (f)); 278 mark_object (FONT_INSTANCE_TTY_CHARSET (f));
277 } 279 }
278 280
279 static void 281 static void
280 tty_print_font_instance (Lisp_Font_Instance *f, 282 tty_print_font_instance (Lisp_Font_Instance *UNUSED (f),
281 Lisp_Object printcharfun, 283 Lisp_Object UNUSED (printcharfun),
282 int escapeflag) 284 int UNUSED (escapeflag))
283 { 285 {
284 } 286 }
285 287
286 static void 288 static void
287 tty_finalize_font_instance (Lisp_Font_Instance *f) 289 tty_finalize_font_instance (Lisp_Font_Instance *f)
289 if (f->data) 291 if (f->data)
290 xfree (f->data, void *); 292 xfree (f->data, void *);
291 } 293 }
292 294
293 static Lisp_Object 295 static Lisp_Object
294 tty_list_fonts (Lisp_Object pattern, Lisp_Object device, Lisp_Object maxnumber) 296 tty_list_fonts (Lisp_Object UNUSED (pattern), Lisp_Object UNUSED (device),
297 Lisp_Object UNUSED (maxnumber))
295 { 298 {
296 return list1 (build_string ("normal")); 299 return list1 (build_string ("normal"));
297 } 300 }
298 301
299 #ifdef MULE 302 #ifdef MULE
300 303
301 static int 304 static int
302 tty_font_spec_matches_charset (struct device *d, Lisp_Object charset, 305 tty_font_spec_matches_charset (struct device *UNUSED (d), Lisp_Object charset,
303 const Ibyte *nonreloc, Lisp_Object reloc, 306 const Ibyte *nonreloc, Lisp_Object reloc,
304 Bytecount offset, Bytecount length, 307 Bytecount offset, Bytecount length,
305 int stage) 308 int stage)
306 { 309 {
307 const Ibyte *the_nonreloc = nonreloc; 310 const Ibyte *the_nonreloc = nonreloc;