From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 16 Mar 2011 07:34:28 +0000 (-0700)
Subject: * eval.c (lisp_indirect_variable): Name an expression,
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~554^2~34
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cfcbfb1aa5d013f114bc002110166fd1f5392f56;p=emacs.git

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

to avoid gcc -Wbad-function-cast warning.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 15d169a8b30..a5a4657f7dc 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 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;
 }