Mercurial > hg > xemacs-beta

comparison src/symbols.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 7670d88516af
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
993 return bfwd->aliasee; 993 return bfwd->aliasee;
994 } 994 }
995 995
996 /* Should never, ever be called. (except by an external debugger) */ 996 /* Should never, ever be called. (except by an external debugger) */
997 void 997 void
998 print_symbol_value_magic (Lisp_Object obj, 998 print_symbol_value_magic (Lisp_Object obj, Lisp_Object printcharfun,
999 Lisp_Object printcharfun, int escapeflag) 999 int UNUSED (escapeflag))
1000 { 1000 {
1001 write_fmt_string (printcharfun, 1001 write_fmt_string (printcharfun,
1002 "#<INTERNAL OBJECT (XEmacs bug?) (%s type %d) 0x%lx>", 1002 "#<INTERNAL OBJECT (XEmacs bug?) (%s type %d) 0x%lx>",
1003 XRECORD_LHEADER_IMPLEMENTATION (obj)->name, 1003 XRECORD_LHEADER_IMPLEMENTATION (obj)->name,
1004 XSYMBOL_VALUE_MAGIC_TYPE (obj), 1004 XSYMBOL_VALUE_MAGIC_TYPE (obj),
1321 Write out any cached value in buffer-local variable SYMBOL's 1321 Write out any cached value in buffer-local variable SYMBOL's
1322 buffer-local structure, which is passed in as BFWD. 1322 buffer-local structure, which is passed in as BFWD.
1323 */ 1323 */
1324 1324
1325 static void 1325 static void
1326 write_out_buffer_local_cache (Lisp_Object symbol, 1326 write_out_buffer_local_cache (Lisp_Object UNUSED (symbol),
1327 struct symbol_value_buffer_local *bfwd) 1327 struct symbol_value_buffer_local *bfwd)
1328 { 1328 {
1329 if (!NILP (bfwd->current_buffer)) 1329 if (!NILP (bfwd->current_buffer))
1330 { 1330 {
1331 /* We pass 0 for BUFFER because only SYMVAL_CURRENT_BUFFER_FORWARD 1331 /* We pass 0 for BUFFER because only SYMVAL_CURRENT_BUFFER_FORWARD
2996 Don't you dare use this. 2996 Don't you dare use this.
2997 If you do, suffer the wrath of Ben, who is likely to rename 2997 If you do, suffer the wrath of Ben, who is likely to rename
2998 this function (or change the semantics of its arguments) without 2998 this function (or change the semantics of its arguments) without
2999 pity, thereby invalidating your code. 2999 pity, thereby invalidating your code.
3000 */ 3000 */
3001 (variable, handler_type, handler, harg, keep_existing)) 3001 (variable, handler_type, handler, harg,
3002 UNUSED (keep_existing)))
3002 { 3003 {
3003 Lisp_Object valcontents; 3004 Lisp_Object valcontents;
3004 struct symbol_value_lisp_magic *bfwd; 3005 struct symbol_value_lisp_magic *bfwd;
3005 enum lisp_magic_handler htype; 3006 enum lisp_magic_handler htype;
3006 int i; 3007 int i;