From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 6 Sep 2013 14:28:05 +0000 (-0400)
Subject: * src/eval.c (eval_sub): Only call Ffunction if necessary.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1664^2~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=306d67bd4c0161521c465c64d9cf18d1c768e174;p=emacs.git

* src/eval.c (eval_sub): Only call Ffunction if necessary.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 2325b351217..526b05fbd9f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-09-06  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* eval.c (eval_sub): Only call Ffunction if necessary.
+
 2013-09-06  Dmitry Antipov  <dmantipov@yandex.ru>
 
 	Attempt to make redisplay more selective when changing cursor type.
diff --git a/src/eval.c b/src/eval.c
index 1ce14ae94a6..9db4d1fd81b 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2146,11 +2146,10 @@ eval_sub (Lisp_Object form)
 
   /* Optimize for no indirection.  */
   fun = original_fun;
-  if (SYMBOLP (fun) && !NILP (fun)
-      && (fun = XSYMBOL (fun)->function, SYMBOLP (fun)))
-    fun = indirect_function (fun);
-  else
+  if (!SYMBOLP (fun))
     fun = Ffunction (Fcons (fun, Qnil));
+  else if (!NILP (fun) && (fun = XSYMBOL (fun)->function, SYMBOLP (fun)))
+    fun = indirect_function (fun);
 
   if (SUBRP (fun))
     {