Mercurial > hg > xemacs-beta

comparison src/specifier.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 3ceb3622efa3
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
261 prev = rest; 261 prev = rest;
262 } 262 }
263 } 263 }
264 264
265 static void 265 static void
266 print_specifier (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 266 print_specifier (Lisp_Object obj, Lisp_Object printcharfun,
267 int UNUSED (escapeflag))
267 { 268 {
268 Lisp_Specifier *sp = XSPECIFIER (obj); 269 Lisp_Specifier *sp = XSPECIFIER (obj);
269 int count = specpdl_depth (); 270 int count = specpdl_depth ();
270 Lisp_Object the_specs; 271 Lisp_Object the_specs;
271 272
2184 remove_specifier_mapfun (Lisp_Object specifier, 2185 remove_specifier_mapfun (Lisp_Object specifier,
2185 Lisp_Object locale, 2186 Lisp_Object locale,
2186 enum spec_locale_type locale_type, 2187 enum spec_locale_type locale_type,
2187 Lisp_Object tag_set, 2188 Lisp_Object tag_set,
2188 int exact_p, 2189 int exact_p,
2189 void *ignored_closure) 2190 void *UNUSED (closure))
2190 { 2191 {
2191 if (NILP (locale)) 2192 if (NILP (locale))
2192 specifier_remove_locale_type (specifier, locale_type, tag_set, exact_p); 2193 specifier_remove_locale_type (specifier, locale_type, tag_set, exact_p);
2193 else 2194 else
2194 specifier_remove_spec (specifier, locale, locale_type, tag_set, exact_p); 2195 specifier_remove_spec (specifier, locale, locale_type, tag_set, exact_p);
2545 { 2546 {
2546 Lisp_Object buffer = Qnil; 2547 Lisp_Object buffer = Qnil;
2547 Lisp_Object window = Qnil; 2548 Lisp_Object window = Qnil;
2548 Lisp_Object frame = Qnil; 2549 Lisp_Object frame = Qnil;
2549 Lisp_Object device = Qnil; 2550 Lisp_Object device = Qnil;
2550 Lisp_Object tag = Qnil; /* #### currently unused */
2551 Lisp_Specifier *sp = XSPECIFIER (specifier); 2551 Lisp_Specifier *sp = XSPECIFIER (specifier);
2552 2552
2553 /* Attempt to determine buffer, window, frame, and device from the 2553 /* Attempt to determine buffer, window, frame, and device from the
2554 domain. */ 2554 domain. */
2555 /* #### get image instances out of domains! */ 2555 /* #### get image instances out of domains! */
2577 /* frame had better exist; if device is undeterminable, something 2577 /* frame had better exist; if device is undeterminable, something
2578 really went wrong. */ 2578 really went wrong. */
2579 device = FRAME_DEVICE (XFRAME (frame)); 2579 device = FRAME_DEVICE (XFRAME (frame));
2580 2580
2581 /* device had better be determined by now; abort if not. */ 2581 /* device had better be determined by now; abort if not. */
2582 tag = DEVICE_CLASS (XDEVICE (device)); 2582 (void) DEVICE_CLASS (XDEVICE (device));
2583 2583
2584 depth = make_int (1 + XINT (depth)); 2584 depth = make_int (1 + XINT (depth));
2585 if (XINT (depth) > 20) 2585 if (XINT (depth) > 20)
2586 { 2586 {
2587 maybe_signal_error (Qstack_overflow, 2587 maybe_signal_error (Qstack_overflow,