Commit cfcbfb1a authored by Paul Eggert's avatar Paul Eggert
Browse files

* eval.c (lisp_indirect_variable): Name an expression,

to avoid gcc -Wbad-function-cast warning.
parent d28a2170
......@@ -2,6 +2,8 @@
* eval.c (call_debugger, do_debug_on_call, grow_specpdl): Now static.
(Fdefvar): Rewrite so as not to use empty "else".
(lisp_indirect_variable): Name an expression,
to avoid gcc -Wbad-function-cast warning.
* callint.c (quotify_arg, quotify_args): Now static.
(Fcall_interactively): Rename locals to avoid shadowing.
......@@ -856,7 +856,8 @@ user_variable_p_eh (Lisp_Object ignore)
static Lisp_Object
lisp_indirect_variable (Lisp_Object sym)
XSETSYMBOL (sym, indirect_variable (XSYMBOL (sym)));
struct Lisp_Symbol *s = indirect_variable (XSYMBOL (sym));
XSETSYMBOL (sym, s);
return sym;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment