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

to avoid gcc -Wbad-function-cast warning.

2 files changed, 4 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 15d169a8b3..a5a4657f7d 100644
--- 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 4f6d3dd015..affafadfec 100644
--- 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;
 }