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

to avoid gcc -Wbad-function-cast warning.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/eval.c b/src/eval.c
index 4f6d3dd015d..affafadfecf 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;
 }