Mercurial > hg > xemacs-beta

comparison src/data.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 91d4c8c65a0f
children 3d8143fc88e1
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
2534 static Lisp_Object Vall_weak_lists; /* Gemarke es nicht!!! */ 2534 static Lisp_Object Vall_weak_lists; /* Gemarke es nicht!!! */
2535 2535
2536 static Lisp_Object encode_weak_list_type (enum weak_list_type type); 2536 static Lisp_Object encode_weak_list_type (enum weak_list_type type);
2537 2537
2538 static Lisp_Object 2538 static Lisp_Object
2539 mark_weak_list (Lisp_Object obj) 2539 mark_weak_list (Lisp_Object UNUSED (obj))
2540 { 2540 {
2541 return Qnil; /* nichts ist gemarkt */ 2541 return Qnil; /* nichts ist gemarkt */
2542 } 2542 }
2543 2543
2544 static void 2544 static void
2545 print_weak_list (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 2545 print_weak_list (Lisp_Object obj, Lisp_Object printcharfun,
2546 int UNUSED (escapeflag))
2546 { 2547 {
2547 if (print_readably) 2548 if (print_readably)
2548 printing_unreadable_object ("#<weak-list>"); 2549 printing_unreadable_object ("#<weak-list>");
2549 2550
2550 write_fmt_string_lisp (printcharfun, "#<weak-list %s %S>", 2, 2551 write_fmt_string_lisp (printcharfun, "#<weak-list %s %S>", 2,
3012 prev = rest; 3013 prev = rest;
3013 } 3014 }
3014 } 3015 }
3015 3016
3016 static Lisp_Object 3017 static Lisp_Object
3017 mark_weak_box (Lisp_Object obj) 3018 mark_weak_box (Lisp_Object UNUSED (obj))
3018 { 3019 {
3019 return Qnil; 3020 return Qnil;
3020 } 3021 }
3021 3022
3022 static void 3023 static void
3023 print_weak_box (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 3024 print_weak_box (Lisp_Object UNUSED (obj), Lisp_Object printcharfun,
3025 int UNUSED (escapeflag))
3024 { 3026 {
3025 if (print_readably) 3027 if (print_readably)
3026 printing_unreadable_object ("#<weak_box>"); 3028 printing_unreadable_object ("#<weak_box>");
3027 write_fmt_string (printcharfun, "#<weak_box>"); 3029 write_fmt_string (printcharfun, "#<weak_box>");
3028 } 3030 }
3237 3239
3238 return finalizers; 3240 return finalizers;
3239 } 3241 }
3240 3242
3241 static Lisp_Object 3243 static Lisp_Object
3242 mark_ephemeron (Lisp_Object obj) 3244 mark_ephemeron (Lisp_Object UNUSED (obj))
3243 { 3245 {
3244 return Qnil; 3246 return Qnil;
3245 } 3247 }
3246 3248
3247 static void 3249 static void
3248 print_ephemeron (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 3250 print_ephemeron (Lisp_Object UNUSED (obj), Lisp_Object printcharfun,
3251 int UNUSED (escapeflag))
3249 { 3252 {
3250 if (print_readably) 3253 if (print_readably)
3251 printing_unreadable_object ("#<ephemeron>"); 3254 printing_unreadable_object ("#<ephemeron>");
3252 write_fmt_string (printcharfun, "#<ephemeron>"); 3255 write_fmt_string (printcharfun, "#<ephemeron>");
3253 } 3256 }