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

to avoid gcc -Wbad-function-cast warning.

diff --git a/src/ChangeLog b/src/ChangeLog
index 15d169a..a5a4657 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/eval.c b/src/eval.c
index 4f6d3dd..affafad 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -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;
 }